Commits

Burak Gürsoy committed b5b5773

use constant

  • Participants
  • Parent commits 6cf2957

Comments (0)

Files changed (1)

lib/Lingua/TR/Numbers.pm

 use constant TENS         => map { 10 * $_ } 1..9;
 use constant LAST_ELEMENT => -1;
 use constant PREV_ELEMENT => -2;
+use constant CHUNK_MAX    => 100;
 use base qw( Exporter );
 use Carp qw( croak );
 
 
     my $and;
     # junk
-    $and = EMPTY_STRING if $chunks[LAST_ELEMENT][1] == 0 and  $chunks[LAST_ELEMENT][0] < 100;
+    $and = EMPTY_STRING if $chunks[LAST_ELEMENT][1] == 0 and $chunks[LAST_ELEMENT][0] < CHUNK_MAX;
     # The special 'and' that shows up in like "one thousand and eight"
     # and "two billion and fifteen", but not "one thousand [*and] five hundred"
     # or "one million, [*and] nine"