File Coverage

blib/lib/Lingua/RU/Numeric/Declension.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch	6	6	100.0
condition	3	3	100.0
subroutine	3	3	100.0
pod	0	1	0.0
total	24	25	96.0

package Lingua::RU::Numeric::Declension;

use vars qw ($VERSION);
$VERSION = '1.1';

use strict;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(numdecl);


sub numdecl {
   my ($number, $nominative, $genitive, $plural) = @_;

   return $plural if $number =~ /1.$/;

   my ($last_digit) = $number =~ /(.)$/;

   return $nominative if $last_digit == 1;
   return $genitive if $last_digit > 0 && $last_digit < 5;
   return $plural;
}

1;

__END__