File Coverage

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

Criterion	Covered	Total	%
statement	19	22	86.3
branch	5	8	62.5
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	29	36	80.5

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

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

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

    my $value_type = ref $value;

    if( $value_type eq 'ARRAY' )
    {
        $result = [reverse @$value];
    }
    elsif( $value_type eq 'HASH' )
    {
        $result = {reverse %$value};
    }
    elsif( UNIVERSAL::can($value_type, 'reverse') )
    {
        $result = $value->reverse($context);
    }
    elsif( not $value_type )
    {
        $result = join '', reverse ($value =~ /(.)/gs);
    }
    else
    {
        die $self->get_render_error( $context, "don't know how to reverse $value ($value_type)");
    }

    return $result;
}

1;