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.002';
3             our $AUTHORITY = 'cpan:TOBYINK';
4 2     2   21209 use strict; use Carp; use MIME::Base64;
  2     2   4  
  2     2   51  
  2         8  
  2         2  
  2         138  
  2         1520  
  2         1365  
  2         636  
5 4 100   4   36 sub import{my$class=shift or return$=;if(!@_){strict->unimport,return
  2 100       7  
  1         18  
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         3  
  1         2  
7 1 50       2 {+}g;$x=~s{_S}{/}g;$x.='='while(length$x)%3;croak"invalid base64: $x"
  1         10  
  1         5  
8 1         2 if$x=~m~[^A-Za-z0-9\+\/\=]~;my$o;my$eval=join q..,qq, package $caller
  1         11  
9 1 50       5 ;,,decode_base64($x);warn"$eval\n"if$ENV{PERL_JUNK_DEBUG};eval$eval}}
  1         61  
10 1     1   28 sub unimport{strict->import(qw,vars subs,)}import
11              
12             __END__