Select Code to Download

# there's some looseness here to account for people's mangling
# of the English language

...

ones           ::= zero | one  | two   | three | four
                 | five | six  | seven | eight | nine

package Number::FromWord;

use warnings;
...
}

1;

#!perl 

#use Test::More tests => 1;
...
    my ( $word, $num ) = splice @words, 0, 2;
    is word_to_num($word), $num, "... $word should be $num";
}