File Coverage

blib/lib/Acme/Lingua/NIGERIAN.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	22	100.0

#
# Acme::Lingua::NIGERIAN
#
package Acme::Lingua::NIGERIAN;
use Filter::Simple;
use strict;
use warnings;
use IO::Handle;
BEGIN { *IO::Handle::transfer_discreetly = \*IO::Handle::print; }


our $VERSION = '1.0.0';

sub import()
{
    shift;
    my $package = caller();
    no strict 'refs';
    *{"${package}::swiss_bank_account"} = \*STDOUT;
    *{"${package}::transfer_discreetly"} = \*print;
}

FILTER {
    my $ret = lc($_);
    $ret =~ s/([a-z])!!!/uc($1)/eg;
    $ret =~ s/^\s*dear sir,/use strict;/mg;
    $ret =~ s/^\s*i am .*$/use warnings;/mg;
    $ret =~ s/\S+ million/0/g;

    $_ = $ret;
};

1;

__END__