Lines Matching defs:roman
178 my @roman = ('',qw(I II III IV V VI VII VIII IX));
179 sub roman {
183 my $r = $roman[ $1 ];
186 (my $t = $roman[$1]) =~ tr/IVX/XLC/;
190 (my $t = $roman[$1]) =~ tr/IVX/CDM/;
194 (my $t = $roman[$1]) =~ tr/IVX/M../;
254 sub format_Od { roman(format_d(@_)) }
255 sub format_Oe { roman(format_e(@_)) }
256 sub format_OH { roman(format_H(@_)) }
257 sub format_OI { roman(format_I(@_)) }
258 sub format_Oj { roman(format_j(@_)) }
259 sub format_Ok { roman(format_k(@_)) }
260 sub format_Ol { roman(format_l(@_)) }
261 sub format_Om { roman(format_m(@_)) }
262 sub format_OM { roman(format_M(@_)) }
263 sub format_Oq { roman(format_q(@_)) }
264 sub format_Oy { roman(format_y(@_)) }
265 sub format_OY { roman(format_Y(@_)) }
392 with C<O>, e.g. C<%OY> will output the year as roman numerals.