File Coverage

blib/lib/Lingua/Bork.pm

Criterion	Covered	Total	%
statement	9	22	40.9
branch	0	8	0.0
condition	0	3	0.0
subroutine	3	5	60.0
pod	0	2	0.0
total	12	40	30.0

package Lingua::Bork;

use strict;
use warnings;

require Exporter;

use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $VERSION);

@ISA = qw(Exporter);

%EXPORT_TAGS = ( 'all' => [ 'bork' ] );
@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

$VERSION = '0.03';

my %map = ( tion => 'shun', # tail only
            the  => 'zee',  # full match
            an   => 'un',
            au   => 'oo',
            en   => 'ee', # tail only
            ir   => 'ur',
            ow   => 'oo',
#           E    => 'I',  # head only
            e    => 'ea', # tail only
            f    => 'ff',
#           i    => 'ee', # first in word
            o    => 'u',  # within word
            u    => 'oo',
            v    => 'f',
            w    => 'v',
           );

sub new {
  my $class = shift;
  bless {}, ref($class)||$class;
}

sub bork {
   local $_ = shift;
   local $_ = shift if ref($_);

   s/(tion\b|\bthe\b|an|au|en\b|ir|ow|e\b|f|\Bo\B|u|v|w)/my $trans = $map{lc $1}; $1 eq lc($1) ? $map{lc $1} : ucfirst($map{lc $1})/eig;

   # first i in a word
   s/(i)(\S+)/ $1 eq 'i' ? "ee$2" : "Ee$2" /eig;

   # leading e
   s/\b(e)(?!e)/ $1 eq 'e' ? 'i' : 'I' /eig;

   s/([.!?])+/$1  Bork Bork Bork!/g;
   return $_;
}

1;
__END__