Add ARM files

[dh-make-perl] / dev / arm / libdevel-symdump-perl / libdevel-symdump-perl-2.08 / debian / libdevel-symdump-perl / usr / share / perl5 / Devel / Symdump / Export.pm

diff --git a/dev/arm/libdevel-symdump-perl/libdevel-symdump-perl-2.08/debian/libdevel-symdump-perl/usr/share/perl5/Devel/Symdump/Export.pm b/dev/arm/libdevel-symdump-perl/libdevel-symdump-perl-2.08/debian/libdevel-symdump-perl/usr/share/perl5/Devel/Symdump/Export.pm
new file mode 100644 (file)
index 0000000..2401e5f
--- /dev/null
+++ b/dev/arm/libdevel-symdump-perl/libdevel-symdump-perl-2.08/debian/libdevel-symdump-perl/usr/share/perl5/Devel/Symdump/Export.pm
@@ -0,0 +1,39 @@
+package Devel::Symdump::Export;
+require Devel::Symdump;
+require Exporter;
+use Carp;
+use strict;
+use vars qw(@ISA @EXPORT_OK $AUTOLOAD);
+@ISA=('Exporter');
+
+@EXPORT_OK=(
+       'packages'      ,
+       'scalars'       ,
+       'arrays'        ,
+       'hashes'        ,
+       'functions'     ,
+       'filehandles'   ,
+       'dirhandles'    ,
+       'ios'           ,
+       'unknowns'      ,
+);
+my %OK;
+@OK{@EXPORT_OK}=(1) x @EXPORT_OK;
+
+push @EXPORT_OK, "symdump";
+
+# undocumented feature symdump() -- does it save enough typing?
+sub symdump {
+    my @packages = @_;
+    Devel::Symdump->new(@packages)->as_string;
+}
+
+AUTOLOAD {
+    my @packages = @_;
+    (my $auto = $AUTOLOAD) =~ s/.*:://;
+    confess("Unknown function call $auto") unless $OK{$auto};
+    my @ret = Devel::Symdump->new->$auto(@packages);
+    return @ret;
+}
+
+1;