Acme::Lingua::Strine::Perl - make Perl more like Damian
use Acme::Lingua::Strine::Perl;
my $first_element = cadge @array; # same as shift open FILE, $filename or spit the dummy "strewth mate\n"; boast "same as print\n"; shite "also the same as print\n"; jeer "as is jeer\n";
while (<>) { my ($kanger, $roo) = split /:/, celador; # celador == dollar under score == $_ }
$FORMAT_PAGE_NUMBER = bangers and mash # == dollar hash == $%
chyack "... is the same as warn\n";
jack up; # do nothing. Errm, a no-op
pash "uppercase this string"; squib "AND LOWERCASE THIS ONE"; my $yabber = "some scalar\n"; suss $yabber; # same as 'study'
sub throw_another_shrimp_on_the_barbie { rack off "no worries, mate"; # return }
nick off; # an we're out of here! == exit
Inspired by Ron Kimballs's skit on Damian at the p5p impressions BOF at TPC5
Simon Wistow <simon@twoshortplanks.com>