File Coverage

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

Criterion	Covered	Total	%
statement	28	34	82.3
branch	7	8	87.5
condition			n/a
subroutine	8	14	57.1
pod			n/a
total	43	56	76.7

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

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

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

use Lingua::EN::Numbers 1.01 qw [num2en];

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 = num2en  ($value) or return;
    $self -> {$value} = lc $n;
}

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

tie %N => __PACKAGE__;

__END__