File Coverage

blib/lib/Text/Transliterator.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	5	8	62.5
condition	5	7	71.4
subroutine	3	3	100.0
pod	1	1	100.0
total	35	40	87.5

package Text::Transliterator;
use strict;
use warnings;

our $VERSION = '1.06';

sub new {
  my $class = shift;
  my ($from, $to);

  # first arguments : either a hashref, or a pair of strings
  if ((ref $_[0] || '') eq 'HASH') {
    my $map = shift;
    $from = join "", keys   %$map;
    $to   = join "", values %$map;
  }
  else {
    $from = shift;
    $to   = shift;
    defined $from and defined $to
      or die 'Text::Transliterator->new($from, $to): invalid args';
  }

  # remaining arguments
  my $modifiers = shift || '';
  not @_
    or die 'Text::Transliterator->new(): too many args';

  # build the coderef.
  # Returns the list of tr/../../ results.
  # In scalar context, returns the last item (for compatibility with the previous API)
  my $src = "sub {my \@l = map {tr[$from][$to]$modifiers} \@_; return wantarray ? \@l : \$l[-1]}";
  local $@;
  my $coderef = eval $src or die "Text::Transliterator: error in compiling the tr function: $@";

  return $coderef;
}


1; # End of Text::Transliterator

__END__