File Coverage

blib/lib/DTL/Fast/Filter.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch	1	2	50.0
condition	2	5	40.0
subroutine	7	8	87.5
pod	0	3	0.0
total	32	42	76.1

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

use DTL::Fast::Template;

sub new
{
    my ( $proto, $parameter, %kwargs) = @_;

    $proto = ref $proto || $proto;

    $kwargs{parameter} = $parameter // [ ];

    die $proto->get_parse_error("Parameter must be an ARRAY reference")
        if (ref $kwargs{parameter} ne 'ARRAY');

    my $self = $proto->SUPER::new(%kwargs);

    return $self->parse_parameters();
}

sub parse_parameters {return shift;}

sub filter
{
    my ($self) = @_;
    die sprintf( "filter was not overriden in a subclass %s", ref $self );
}

1;