diff options
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Devel/Symdump/Export.pm')
-rw-r--r-- | chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Devel/Symdump/Export.pm | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Devel/Symdump/Export.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Devel/Symdump/Export.pm deleted file mode 100644 index 2401e5f542b..00000000000 --- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/Devel/Symdump/Export.pm +++ /dev/null @@ -1,39 +0,0 @@ -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; |