git.maemo.org Git - pkg-perl/blob - deb-src/libdevel-symdump-perl/libdevel-symdump-perl-2.08/lib/Devel/Symdump/Export.pm

   1 package Devel::Symdump::Export;
   2 require Devel::Symdump;
   3 require Exporter;
   4 use Carp;
   5 use strict;
   6 use vars qw(@ISA @EXPORT_OK $AUTOLOAD);
   7 @ISA=('Exporter');
   8
   9 @EXPORT_OK=(
  10         'packages'      ,
  11         'scalars'       ,
  12         'arrays'        ,
  13         'hashes'        ,
  14         'functions'     ,
  15         'filehandles'   ,
  16         'dirhandles'    ,
  17         'ios'           ,
  18         'unknowns'      ,
  19 );
  20 my %OK;
  21 @OK{@EXPORT_OK}=(1) x @EXPORT_OK;
  22
  23 push @EXPORT_OK, "symdump";
  24
  25 # undocumented feature symdump() -- does it save enough typing?
  26 sub symdump {
  27     my @packages = @_;
  28     Devel::Symdump->new(@packages)->as_string;
  29 }
  30
  31 AUTOLOAD {
  32     my @packages = @_;
  33     (my $auto = $AUTOLOAD) =~ s/.*:://;
  34     confess("Unknown function call $auto") unless $OK{$auto};
  35     my @ret = Devel::Symdump->new->$auto(@packages);
  36     return @ret;
  37 }
  38
  39 1;