home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / Devel / Symdump / Export.pm
Encoding:
Perl POD Document  |  1997-08-10  |  687 b   |  38 lines
  1. package Devel::Symdump::Export;
  2. require Devel::Symdump;
  3. require Exporter;
  4. use Carp;
  5. @ISA=('Exporter');
  6.  
  7. @EXPORT_OK=(
  8.     'packages'    ,
  9.     'scalars'    ,
  10.     'arrays'    ,
  11.     'hashes'    ,
  12.     'functions'    ,
  13.     'filehandles'    ,
  14.     'dirhandles'    ,
  15.     'ios'           ,
  16.     'unknowns'    ,
  17. );
  18. my %OK;
  19. @OK{@EXPORT_OK}=(1) x @EXPORT_OK;
  20.  
  21. push @EXPORT_OK, "symdump";
  22.  
  23. # undocumented feature symdump() -- does it save enough typing?
  24. sub symdump {
  25.     my @packages = @_;
  26.     Devel::Symdump->new(@packages)->as_string;
  27. }
  28.  
  29. AUTOLOAD {
  30.     my @packages = @_;
  31.     (my $auto = $AUTOLOAD) =~ s/.*:://;
  32.     confess("Unknown function call $auto") unless $OK{$auto};
  33.     my @ret = Devel::Symdump->new->$auto(@packages);
  34.     return @ret;
  35. }
  36.  
  37. 1;
  38.