view release on metacpan or  search on metacpan

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

package Acme::Labs;

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


srand; rand($.) < 1 && (our $but = $_) while <DATA>; 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); $...

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

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

=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<http://www.perl.com/perl/misc/Artistic.html>).

=cut

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

__DATA__
but if you replace the 'P' with an 'O', my name would be 'Oinky', wouldn't it?
but don't camels spit a lot?
but 'Snowball for Windows'?
but I don't think Kay Ballard's in the union.
but I find scratching just makes it worse.
but Pete Rose?  I mean, can we trust him?
but Tuesday Weld isn't a complete sentence!
but Zero Mostel times anything will still give you Zero Mostel!
but calling it pu-pu platter?  Huh, what were they thinking!
but can the Gummi Worms really live in peace with the Marshmallow Chicks?