File Coverage

blib/lib/Acme/Labs.pm

Criterion	Covered	Total	%
statement	17	20	85.0
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	1	3	33.3
total	21	27	77.7

package Acme::Labs;

our $VERSION = '1.1';	# September 14, 2005


srand; rand($.) < 1 && (our $but = $_) while ; chomp $but;				# randomly choose a line of DATA
our $Qyes; our $yEs="I think so, Brain";
our $pondering = qq(BRAIN:\t"Pinky, are you pondering what I'm pondering?"\nPINKY:\t"$yEs, $but"\n\n);

my @interjections=qw(NARF POIT ZORT EGAD);
my $interjections=join("|", @interjections);									# OR'd list for regexes

our (%zord, %chroz);
my $c=ord("A"); foreach my $w (@interjections) {my $l=length $w; for(my $n=0; $n<2**$l; $n++) {my $narf; my $b=unpack("b$l", chr $n); for my $i (0..$l-1) { $narf.=substr($b, $i, 1)?lc substr($w, $i, 1):uc substr($w, $i, 1); } $chroz{$narf}=chr($c); $zord{chr($c++)}=$narf;}}

#----------------------------------------------------------------------

sub AYPWIP
{
	local $pondering="\Q$pondering\E";
	local $yEs="\Q$yEs\E";
	local $Qyes="\Q$yEs\E";

	$pondering=~s[$Qyes.*\s*][$yEs]s;
	$_[0] =~ /^\s*$pondering/
}

sub pinking
{
	local $_=pop;
	s/([A-Z])/ $zord{$1}/ig;
	"\n\n$pondering$_"
}

sub brainier
{
	local $_ = pop;

	local $pondering="\Q$pondering\E";
	local $yEs="\Q$yEs\E";
	local $Qyes="\Q$yEs\E";

	$pondering=~s[$Qyes.*][$yEs]s;

	s/^\s*$pondering.*\n\n//;
	s/^\n//;
	s/ ($interjections)/$chroz{$1}/ig;
	$_
}

#----------------------------------------------------------------------

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


=head1 SYNOPSIS

	use Acme::Labs;

	print "Egad, brilliant, Brain!\n";
	print "Oh, wait, no -- it'll never work!";


=head1 DESCRIPTION

When you run a program under C, the module replaces all the
big, complicated words in your source file. The code will still work the way it
used to, but it will look something like this:

	use Acme::Labs;

	BRAIN:	"Are you pondering what I'm pondering?"
	PINKY:	"I think so, Brain, but where will we find a duck and a hose at this time of night?"


	 zort eGAD ZORt zOrt egAD " NArF ZorT ZORT zoRT,  zORT eGAD ZORt zoRt zoRt ZORt ZORT zOrt egAD,  nARF eGAD ZORT ZORt zOrt!\ zOrt";
	 zort eGAD ZORt zOrt egAD " Narf zorT,  EgaD ZORT ZORt egAD,  zOrt Zort --  ZORt egAD' zoRt zoRt  zOrt ZOrT eGaD ZOrT eGAD  EgaD Zort eGAD ZoRt!";


=head1 DIAGNOSTICS

=over 4

=item C

Acme::Labs has done its work on your script.  (Only appears the first time
you run under Acme::Labs, to indicate that the source code has been
translated successfully[sic].)

=item C

Acme::Labs could not read the source file.

=item C

Acme::Labs could not modify the source file.

=back

=head1 BUGS

There's no (easy) way to recover the original script.
(If you're going to let Pinky mess with your work, that's about what you should
expect.)

The C of Acme::Labs pretty much has to be the first line in the source
code.  (Well, before any run-time stuff, or something like that.)  It should
also be the only statement on its line.

There are probably other bugs not documented in this section.  (Unless you
count the indirect mention in the previous sentence, in which case it's not
a bug that they aren't mentioned because they are. And so saying that this
was a bug is in fact a bug itself.  Whether the bug of saying bugs aren't
mentioned when really they are is covered by the indirect mentioning of the
aforementioned bugs is left as an exercise for Bertrand Russell.)


=head1 SEE ALSO

L, L, your psychiatrist


=head1 AUTHOR

David Green, C<<  >>, with apologies to Damian Conway (or vice versa).


=head1 COPYRIGHT

Copyright (c) 2003, David Green. This module is free software: It may be used,
redistributed, or modified under the terms of the Perl Artistic License
(L).

=cut

#----------------------------------------------------------------------

__DATA__