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;