File Coverage

blib/lib/Lingua/EN/Numbers/Easy.pm

Criterion	Covered	Total	%
statement	27	34	79.4
branch	3	8	37.5
condition			n/a
subroutine	8	14	57.1
pod			n/a
total	38	56	67.8

package Lingua::EN::Numbers::Easy;

use strict;
use warnings;
no  warnings 'syntax';

our $VERSION = '2009110701';
our %N;

use Lingua::EN::Numbers 1.01;

sub import {
    my ($pkg, $hash) = grep {$_ ne 'American' and
                             $_ ne 'British'} @_;

    my $callpkg = caller;
    $hash = 'N' unless defined $hash;
    $hash =~ s/^%//;

    no strict 'refs';
    *{"${callpkg}::$hash"} = \%N;
}


sub TIEHASH {bless {0 => 'zero'} => __PACKAGE__}
sub FETCH {
    my $self  = shift;
    my $value = shift;
    return $self -> {$value} if exists $self -> {$value};
   (my $n = Lingua::EN::Numbers -> new) -> parse ($value) or return;
    $self -> {$value} = lc $n -> get_string;
}

sub STORE    {die}
sub EXISTS   {die}
sub DELETE   {die}
sub CLEAR    {die}
sub FIRSTKEY {die}
sub NEXTKEY  {die}

tie %N => __PACKAGE__;

__END__