File Coverage

blib/lib/Acme/Lingua/Strine/Perl.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	30	30	100.0

package Acme::Lingua::Strine::Perl;

require 5.005_62;
use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

our $VERSION = '0.54';

use Filter::Simple sub
{
	s/(\W)cadge/$1shift/g;
	s/(\W)spit the dummy/$1die/g;
	s/(\W)celador/$1\$_/g;

	s/(\W)bangers and mash/$1\$%/g;
	s/(\W)boast/$1print/g;
	s/(\W)shite/$1print/g;
	s/(\W)jeer/$1print/g;
	s/(\W)chyachk/$1warn/g;
	s/(\W)jack up/$1/g;
	s/(\W)nick off/$1exit/g;
	s/(\W)pash/$1uc/g;
	s/(\W)rack off/$1return/g;
	s/(\W)squib/$1lc/g;
	s/(\W)suss/$1study/g;
	#s/(\W)fossick\s*\(.+=?\)/$1m\/$2\//g;



};



1;
__END__