view release on metacpan or  search on metacpan

lib/Acme/Labs.pm  view on Meta::CPAN

50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
#----------------------------------------------------------------------
 
open 0 or print "NARF?  What does that mean?!? '$0'\n" and exit;                                # read our source code
 
(my $plan = join "", <0>) =~ s[(.*^\s*use\s+Acme::Labs\s*;)]["\n" x (split /\n/, $1)]mes; # capture intro for preserving later on (and leave behind the same number of \n's so we don't throw off the line numbers)
 
do {eval brainier $plan or print STDERR $@; exit} if AYPWIP($plan);                             # if we recognise a Pinky's Plan, apply to North Pole, I mean, Brain
 
open 0, ">$0" or print "Cannot get pinking shears! '$0'\n" and exit;                 # Otherwise, prepare to pinkify!
print {0} $1, pinking $plan                                                                                                     # write out reformulated plan
        and print STDOUT "Fun-fun-silly-willy!\n"
                and do {eval brainier $plan or print STDERR $@; exit};                                  # and execute our plan
 
#----------------------------------------------------------------------
 
=pod
 
=head1 NAME
 
Acme::Labs -- When you need an extraordinary plan to Take Over the World