File Coverage

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

Criterion	Covered	Total	%
statement	34	34	100.0
branch	9	10	90.0
condition	6	15	40.0
subroutine	6	6	100.0
pod	0	2	0.0
total	55	67	82.0

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

$DTL::Fast::FILTER_HANDLERS{'unordered_list'} = __PACKAGE__;

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

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

    $self->{'global_safe'} = $context->{'ns'}->[-1]->{'_dtl_safe'};
    $self->{'safeseq'} = $filter_manager->{'safeseq'};
    $filter_manager->{'safe'} = 1;

    return $self->make_list($value, {});
}

sub make_list
{
    my $self = shift;
    my $array = shift;
    my $recursion_control = shift;

    warn "Recursive data encountered, skipping" and return if exists $recursion_control->{$array};

    $recursion_control->{$array} = 1;
    my @values = ();

    foreach my $element (@$array)
    {
        my $element_type = ref $element;
        if( $element_type eq 'ARRAY' )
        {
            my $rendered = $self->make_list($element, $recursion_control);

            if( $rendered )
            {
                $rendered =~ s/^/\t/mg;
                push @values, sprintf( "\t\n%s\t\n", $rendered  // 'undef');
            }

        }
        else
        {
            push @values, sprintf(
                "\t%s"
                , ( not $self->{'safeseq'} and not $self->{'global_safe'} )
                    ? DTL::Fast::html_protect($element // '')
                    : $element // ''
            )."\n";
        }
    }

    delete $recursion_control->{$array};
    return join '', @values;
}

1;