File Coverage

blib/lib/Lingua/PigLatin.pm

Criterion	Covered	Total	%
statement	14	16	87.5
branch	3	4	75.0
condition	0	3	0.0
subroutine	4	5	80.0
pod	0	2	0.0
total	21	30	70.0

package Lingua::PigLatin;

use 5.008008;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Lingua::PigLatin ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
    piglatin
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.01';


# Preloaded methods go here.

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

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

    s/\b(qu|[cgpstw]h # First syllable, including digraphs
    |[^\W0-9_aeiou])  # Unless it begins with a vowel or number
    ?([a-z]+)/        # Store the rest of the word in a variable
    $1?"$2$1ay"       # move the first syllable and add -ay
    :"$2way"          # unless it should get -way instead
    /iegx;

   return $_;
}


1;
__END__