The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package DTL::Fast::Tag::Filter;
use strict;
use utf8;
use warnings FATAL => 'all';
use parent 'DTL::Fast::Tag';

$DTL::Fast::TAG_HANDLERS{filter} = __PACKAGE__;

use DTL::Fast::FilterManager;

#@Override
sub get_close_tag { return 'endfilter';}

sub parse_parameters
{
    my $self = shift;
    $self->{filter_manager} = DTL::Fast::FilterManager->new(
        filters => $self->{parameter}
    );
    return $self;
}

#@Override
sub render
{
    my $self = shift;
    my $context = shift;
    my $result = '';

    return $self->{filter_manager}->filter(
        $self->SUPER::render($context)
        , $context
    );
}


1;