File Coverage

blib/lib/Template/HTML/Context.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	5	6	83.3
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	33	35	94.2

package Template::HTML::Context;

use strict;
use warnings;
use base qw(Template::Context);

sub filter {
    my $self = shift;
    my ($name, $args, $alias) = @_;

    if ( $name eq 'none' ) {
        return sub {
            my $value = shift;
            return $value->plain if UNIVERSAL::isa($value, 'Template::HTML::Variable');
            return $value;
        };
    }

    my $filter = $self->SUPER::filter(@_);

    return sub {
        my $value = shift;

        if ( UNIVERSAL::isa($value, 'Template::HTML::Variable') ) {
            return ref($value)->new($filter->($value->plain));
        }

        return $filter->($value);
    };
}

1;
__END__