—

              
#!/usr/bin/perl -w
use utf8;
if ( $] >= 5.007 ) {
        binmode (STDOUT, ":utf8");
}
require Convert::Number::Roman;
my $n = new Convert::Number::Roman ( "lower" );  # "lower" set as default
print $n->convert ( 1234 ), "\n";
print $n->convert ( 1234, "upper" ), "\n";  # "upper" becomes new default
print $n->convert ( 1234 ), "\n";
$n->style ( "lower" );                      # "lower reset as default
print $n->convert ( 1234 ), "\n";
my $x = new Convert::Number::Roman ( 4321, "lower" );  # "lower" set as default
print $x->convert, "\n";
print $x->convert ( "upper" ), "\n";
$x->number ( 1234 );
print $x->convert, "\n";
print $x->convert ( "lower" ), "\n";
__END__
HideShow 20 lines of Pod
=head1 NAME
roman.pl - Uppercase and Lowercase Styles Demo for Roman Numerals.
=head1 SYNOPSIS
./roman.pl
=head1 DESCRIPTION
A demonstrator script to illustrate L<Convert::Number::Roman> usage.
This script shows various ways to set lowercase and uppercase styles
for Roman numerals.
=head1 AUTHOR
Daniel Yacob,  L<dyacob@cpan.org|mailto:dyacob@cpan.org>
=cut