File Coverage

blib/lib/Data/Localize/Format/Maketext.pm

Criterion	Covered	Total	%
statement	11	13	84.6
branch	3	8	37.5
condition			n/a
subroutine	2	2	100.0
pod	1	1	100.0
total	17	24	70.8

package Data::Localize::Format::Maketext;
use Moo;

extends 'Data::Localize::Format';

sub format {
    my ($self, $lang, $value, @args) = @_;

    $value =~ s|\[([^\]]+)\]|
        my @vars = split(/,/, $1);
        my $method;
        if ($vars[0] !~ /^_(-?\d+)$/) {
            $method = shift @vars;
        }

        ($method) ?
            $self->$method( $lang, map { (/^_(-?\d+)$/) ? $args[$1 - 1] : $_; } @args ) :
            @args[ map { (/^_(-?\d+)$/ ? $1 : $_) - 1 } @vars ];
    |gex;

    return $value;
}

1;

__END__