File Coverage

blib/lib/junk.pm
Criterion Covered Total %
statement 25 25 100.0
branch 6 8 75.0
condition n/a
subroutine 5 5 100.0
pod n/a
total 36 38 94.7


line stmt bran cond sub pod time code
1             package junk;
2             our $VERSION = '0.004';
3             our $AUTHORITY = 'cpan:TOBYINK';
4 2     2   38228 use strict; use Carp; use MIME::Base64;
  2     2   4  
  2     2   69  
  2         12  
  2         2  
  2         192  
  2         3096  
  2         1729  
  2         1140  
5 4 100   4   41 sub import{my$class=shift or return$=;if(!@_){strict->unimport,return
  2 100       7  
  1         26  
6 1         2 }my@A=@_;my$caller=caller;foreach my$x(@A){$x=~s{_D\d}{$1}g;$x=~s{_P}
  1         2  
  1         2  
  1         2  
  1         2  
7 1 50       1 {+}g;$x=~s{_S}{/}g;$x.='='while(length$x)%3;croak"invalid base64: $x"
  1         9  
  1         4  
8 1         1 if$x=~m~[^A-Za-z0-9\+\/\=]~;my$o;my$eval=join q..,qq, package $caller
  1         9  
9 1 50       4 ;,,decode_base64($x);warn"$eval\n"if$ENV{PERL_JUNK_DEBUG};eval$eval}}
  1         57  
10 1     1   27 sub unimport{strict->import(qw,vars subs,)}import
11              
12             __END__