File Coverage

blib/lib/Text/Transliterator.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	5	8	62.5
condition	4	7	57.1
subroutine	3	3	100.0
pod	1	1	100.0
total	34	40	85.0

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

our $VERSION = '1.04';

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
  my $src = "sub {tr[$from][$to]$modifiers for \@_ }";
  local $@;
  my $coderef = eval $src or die $@;

  return $coderef;
}


1; # End of Text::Transliterator

__END__