File Coverage

blib/lib/Devel/Symdump/Export.pm
Criterion Covered Total %
statement 16 16 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 22 24 91.6


line stmt bran cond sub pod time code
1             package Devel::Symdump::Export;
2             require Devel::Symdump;
3             require Exporter;
4 2     2   1035 use Carp;
  2         2  
  2         118  
5 2     2   6 use strict;
  2         2  
  2         39  
6 2     2   5 use vars qw(@ISA @EXPORT_OK $AUTOLOAD);
  2         2  
  2         410  
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 1     1 0 18 my @packages = @_;
28 1         1573 Devel::Symdump->new(@packages)->as_string;
29             }
30              
31             AUTOLOAD {
32 3     3   1139 my @packages = @_;
33 3         13 (my $auto = $AUTOLOAD) =~ s/.*:://;
34 3 50       10 confess("Unknown function call $auto") unless $OK{$auto};
35 3         3774 my @ret = Devel::Symdump->new->$auto(@packages);
36 3         73 return @ret;
37             }
38              
39             1;