Initial Commit

database/perl/lib/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;