File Coverage

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

Criterion	Covered	Total	%
statement	23	23	100.0
branch	3	4	75.0
condition	3	3	100.0
subroutine	7	7	100.0
pod	0	2	0.0
total	36	39	92.3

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

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

use Scalar::Util qw(looks_like_number);

#@Override
sub parse_parameters
{
    my $self = shift;
    die $self->get_parse_error("no divider specified")
        if (not scalar @{$self->{parameter}});
    $self->{divider} = $self->{parameter}->[0];
    return $self;
}

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

    my $divider = $self->{divider}->render($context);

    return (
            looks_like_number($value)
                and looks_like_number($divider)
                and $divider != 0
                and not $value % $divider
        ) ? 1 : 0;
}

1;