view release on metacpan or  search on metacpan

NIGERIAN.pm  view on Meta::CPAN

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;