view release on metacpan or  search on metacpan

NIGERIAN.pm  view on Meta::CPAN

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($_);