File Coverage

blib/lib/DateTime/Format/Human/Duration/Simple/Locale.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	4	4	100.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	22	23	95.6

package DateTime::Format::Human::Duration::Simple::Locale;
use Moose;
use namespace::autoclean;

has 'serial_comma' => (
    isa     => 'Bool',
    is      => 'ro',
    default => 1,
);

has 'units' => (
    isa     => 'HashRef[ArrayRef[Str]]',
    is      => 'ro',
    lazy    => 1,
    builder => '_build_units',
);

sub _build_units {
    my $self = shift;

    return {
        and         => [ 'and' ],

        year        => [ 'year',        'years'        ],
        month       => [ 'month',       'months'       ],
        week        => [ 'week',        'weeks'        ],
        hour        => [ 'hour',        'hours'        ],
        day         => [ 'day',         'days'         ],
        hour        => [ 'hour',        'hours'        ],
        minute      => [ 'minute',      'minutes'      ],
        second      => [ 'second',      'seconds'      ],
        millisecond => [ 'millisecond', 'milliseconds' ],
        nanosecond  => [ 'nanosecond',  'nanoseconds'  ],
    };
}

sub get_unit_for_value {
    my $self  = shift;
    my $unit  = shift;
    my $value = shift;

    unless ( defined $value ) {
        return $self->units->{$unit}->[0];
    }

    return ( $value == 1 ) ? $self->units->{$unit}->[0] : $self->units->{$unit}->[1];
}

__PACKAGE__->meta->make_immutable;

1;