view release on metacpan or  search on metacpan

NIGERIAN.pm  view on Meta::CPAN

#
# 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__

=pod

=head1 NAME

Acme::Lingua::NIGERIAN - WRITE PERL CODE IN NIGERIAN SPAM

=head1 SYNOPSIS

 #!/usr/bin/perl
 use Acme::Lingua::NIGERIAN;

 DEAR SIR,

 I AM THE SON OF LATE PRESIDENT ONE-OR-THE-OTHER OF NIGERIA.

 TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT "H!!!ELLO N!!!IGERIA\N";

 TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT US$17 MILLION, "\N";

 TRANSFER_DISCREETLY SWISS_BANK_ACCOUNT US$17 MILLION + 25, "\N";

=head1 DESCRIPTION

COMPLIMENT OF THE DAY. MY SEARCH FOR A TRUSTWORTHY INDIVIDUAL/FIRM HAS LED
ME TO YOU. I WISH TO EXTEND THIS MUTUAL BUSINESS PROPOSAL TO YOU WITH THE
HOPE THAT YOU WILL GLADLY ACCEPT IT. I HAVE ACCESS TO WHAT MOST FIRMS AND
INDIVIDUALS NEED THE MOST-CODE; BUT LACK THE FULL MANPOWER (CONTACTS) TO
PUT THE CODE TO GOOD USE. I AM THE PRINCIPAL AUDITOR OF THE NIGERIAN
DAHUT EMBASSY (NDE).


A POST I HAVE HELD FOR THE PAST THREE HOURS. IN THE COURSE OF DISCHARGING MY
DUTY LAST YEAR, I DISCOVERED THAT SOME LEADER OFFICIALS IN THE PAST,
COMMITTED SOME IRREGULARITIES IN THE FORM OF INVOICED CONTRACT CODE, WHICH
EVENTUALLY GO INTO THEIR PRIVATE CPAN ACCOUNTS.


WHAT INTEREST ME MOST AND FOR WHICH REASON I AM WRITING YOU IS THIS
PARTICULAR CONTRACT WHICH WAS AWARDED TO A FOREIGN CONTRACTOR IN 2001, IT
WAS OVER ESTIMATED TO THE TUNE OF USD21.5M (TWENTY ONE MILLION, FIVE HUNDRED
THOUSAND U.S. DAHUTS). THIS CONTRACT HAS BEEN COMPLETED AND COMMISSIONED IN