File Coverage

blib/lib/Number/Latin.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	19	28	67.8
condition	3	5	60.0
subroutine	8	8	100.0
pod	4	4	100.0
total	63	74	85.1

require 5;
package Number::Latin;
$VERSION = '1.01';   # Time-stamp: "2001-02-22 16:43:53 MST"
@ISA = ('Exporter');
@EXPORT = ('int2latin', 'int2Latin', 'int2LATIN', 'latin2int');
use strict;
use integer;
require Exporter;

#---------------------------------------------------------------------------
sub int2latin ($) {
  return undef unless defined $_[0];
  return '0' if $_[0] == 0;
  return '-' . _i2l( abs int $_[0] ) if $_[0] <= -1;
  return       _i2l(     int $_[0] );
}

sub int2Latin ($) {
  # just the above plus ucfirst
  return undef unless defined $_[0];
  return '0' if $_[0] == 0;
  return '-' . ucfirst(_i2l( abs int $_[0] )) if $_[0] <= -1;
  return       ucfirst(_i2l(     int $_[0] ));
}

sub int2LATIN ($) {
  # just the above plus uc
  return undef unless defined $_[0];
  return '0' if $_[0] == 0;
  return '-' . uc(_i2l( abs int $_[0] )) if $_[0] <= -1;
  return       uc(_i2l(     int $_[0] ));
}

{
  my @alpha = ('a' .. 'z');

  sub _i2l { # the real work
    my $int = shift(@_) || return "";
    _i2l(int (($int - 1) / 26)) . $alpha[$int % 26 - 1];  # yes, recursive
  }
}

#---------------------------------------------------------------------------
sub latin2int ($);
sub latin2int ($) {
  return undef unless defined $_[0];
  return 0 if $_[0] eq '0' or $_[0] =~ m/^0+$/s; # special case
  my $in = $_[0];
  return scalar(-latin2int($1)) if $in =~ m<^-([a-zA-Z]+)$>s;
  return undef unless $_[0] =~ m<^[a-zA-Z]+$>s;
  $in =~ tr/A-Z/a-z/;
  _l2i($in);
}

# use Number::Latin; print ">\n"; print latin2int('aaa'), "\n";

sub _l2i {  # the real work.  DESTRUCTIVE to $_[0]
  #print "<$_[0]> => ";
  my $sval = ord(
                 # my $x =
                 chop($_[0])
                ) - ord('a') + 1;
  #print "sval: $x=>$sval leaving <$_[0]>\n";
  (length $_[0]) ? ($sval + 26 * _l2i($_[0])) : $sval;  # yes, recursive
}

#---------------------------------------------------------------------------
1;

__END__