view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

lib/Acme/Roman.pm

eg/fact.pl
eg/fib.pl
eg/guess.pl

Build.PL
Changes
MANIFEST			This list of files
META.yml
README

t/01_use.t
t/02_objects.t
t/03_autoload.t

eg/guess.pl  view on Meta::CPAN

#!perl 

use strict;
use warnings;

use Acme::Roman;

use Term::ReadLine qw( readline );
my $term = Term::ReadLine->new( 'A guessing game' );
print <<GAME;
A guessing game:

Enter roman or arabic numerals to answer.
Just ENTER to quit.

GAME

while (1) {
    my $n1 = int(rand(20))+I; # I .. XX
    my $n2 = int(rand(20))+I; # I .. XX
    my $input = $term->readline("$n1 + $n2 = ");