view release on metacpan or  search on metacpan

lib/junk.pm  view on Meta::CPAN

package junk;
our $VERSION   = '0.004';
our $AUTHORITY = 'cpan:TOBYINK';
use strict; use Carp; use MIME::Base64;
sub import{my$class=shift or return$=;if(!@_){strict->unimport,return
}my@A=@_;my$caller=caller;foreach my$x(@A){$x=~s{_D\d}{$1}g;$x=~s{_P}
{+}g;$x=~s{_S}{/}g;$x.='='while(length$x)%3;croak"invalid base64: $x"
if$x=~m~[^A-Za-z0-9\+\/\=]~;my$o;my$eval=join q..,qq, package $caller
;,,decode_base64($x);warn"$eval\n"if$ENV{PERL_JUNK_DEBUG};eval$eval}}
sub unimport{strict->import(qw,vars subs,)}import

__END__

=head1 NAME

junk - use junk

=head1 SYNOPSIS

 use 5.010;