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;