NAME
    Text::Roman - Converts roman algarism in integer numbers and the
    contrary, recognize algarisms.

SYNOPSIS
            use Text::Roman;

            print roman(123);

DESCRIPTION
    Text::Roman::roman() is a very simple algarism converter. It
    converts a single integer (in arabic algarisms) at a time to its
    roman correspondent. The conventional roman numbers goes from 1
    up to 3999. MROMANS (milhar romans) range is 1 up to
    3999*1000+3999=4002999.

    Up to these number we will found symbols as:??????but they do
    not concern this specific package. There is no concern for mix
    cases, like 'Xv', 'XiiI', as legal roman algarism numbers.

    roman($int): return string containing  the roman corresponding to the given integer, or '' if the integer is out of domain...
    roman2int($str): return '' if $str is not roman or return integer if it is.
    isroman($str): verify whether the given string is a conventional roman number, if it is return 1; if it is not return 0...
    Quite same follows for mroman2int($str) and ismroman($str),
    except that these functions treat milhar romans.

SPECIFICATION
    Roman number has origin in following BNF-like formula:

    a = I{1,3}

    b = V\a?|IV|\a

    e = X{1,3}\b?|X{0,3}IX|\b

    ee = IX|\b

    f = L\e?|XL\ee?|\e

    g = C{1,3}\f?|C{0,3}XC\ee?|\f

    gg = XC\ee?|\f

    h = D\g?|CD\gg?|\g

    j = M{1,3}\h?|M{0,3}CM\gg?|\h

REFERENCES
    Especification supplied by redactor's manual of newspaper "O
    Estado de São Paulo". URL: http://www.estado.com.br/redac/norn-
    nro.html

EXAMPLE
            use Text::Roman;
            
            $roman  = "XXXV";
            $mroman = 'L_X_XXIII';
            print roman(123), "\n";
            print roman2int($roman), "\n"   if isroman($roman);
            print mroman2int($mroman), "\n" if ismroman($mroman);

BUGS
    No one known.

AUTHOR
    Peter de Padua Krauss, krauss@ifqsc.sc.usp.br.

COPYRIGHT
    1.2-krauss/set/97; 1.0-krauss/3/ago/97