File Coverage

blib/lib/DTL/Fast/Filter/Random.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	1	2	50.0
condition	0	4	0.0
subroutine	5	5	100.0
pod	0	1	0.0
total	21	27	77.7

package DTL::Fast::Filter::Random;
use strict;
use utf8;
use warnings FATAL => 'all';
use parent 'DTL::Fast::Filter';

$DTL::Fast::FILTER_HANDLERS{random} = __PACKAGE__;

#@Override
sub filter
{
    my ( $self, $filter_manager, $value, $context ) = @_;

    die $self->get_render_error(
            $context,
            sprintf("Argument must be an ARRAY ref, not %s (%s)"
                , $value // 'undef'
                , ref $value || 'SCALAR'
            )
        ) if (ref $value ne 'ARRAY');

    return $value->[int(rand scalar @$value)];
}

1;