File Coverage

blib/lib/Graphics/GnuplotIF/Shortcut.pm
Criterion Covered Total %
statement 6 7 85.7
branch n/a
condition n/a
subroutine 2 3 66.6
pod 1 1 100.0
total 9 11 81.8


line stmt bran cond sub pod time code
1             package Graphics::GnuplotIF::Shortcut;
2              
3             our $VERSION = '0.03';
4 3     3   210274 use base 'Graphics::GnuplotIF';
  3         10  
  3         8112  
5              
6             our @EXPORT_OK = 'GnuplotIF';
7              
8             for my $m ( keys %{Graphics::GnuplotIF::} ) {
9             local $_ = $m;
10             next unless s/^gnuplot_//;
11             next unless length;
12 3     3   44214 no strict 'refs';
  3         7  
  3         328  
13             my $cref = "Graphics::GnuplotIF::$m";
14             next unless *{$cref}{CODE};
15             *$_ = *$cref;
16             }
17              
18 0     0 1   sub GnuplotIF { __PACKAGE__->new(@_) }
19             1;
20             __END__