File Coverage

blib/lib/Locale/Maketext/ManyPluralForms.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch	5	8	62.5
condition			n/a
subroutine	6	7	85.7
pod	1	1	100.0
total	40	46	86.9

package Locale::Maketext::ManyPluralForms;

use strict;
use warnings;

our $VERSION = '0.02';

require Locale::Maketext::Lexicon;

use parent 'Locale::Maketext';

sub import {
    shift;
    Locale::Maketext::Lexicon->import(@_);
}

sub plural {
    my ($self, $num, @strings) = @_;
    unless ($self->{_plural}) {
        my $class = ref $self;
        no strict 'refs';    ## no critic
        my $header = ${"${class}::Lexicon"}{"__Plural-Forms"};
        if ($header) {
            $header =~ s/^.*plural\s*=\s*([^;]+);.*$/$1/;
            $header =~ s/\[_([0-9]+)\]/%$1/g;
            die "Invalid expression for plural: $header" if $header =~ /\$|n\s*\(|[A-Za-mo-z]|nn/;
            $header =~ s/n/\$_[0]/g;
            eval "\$self->{_plural} = sub { return $header }";
        } else {
            $self->{_plural} = sub { return $_[0] != 1 };
        }
    }
    my $pos = $self->{_plural}($num);
    $pos = $#strings if $pos > $#strings;
    return sprintf $strings[$pos], $num;
}

1;

__END__