File Coverage

blib/lib/DTL/Fast/Expression/Operator/Unary.pm

Criterion	Covered	Total	%
statement	18	22	81.8
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	0	3	0.0
total	24	33	72.7

package DTL::Fast::Expression::Operator::Unary;
use strict; use utf8; use warnings FATAL => 'all';
use parent 'DTL::Fast::Entity';

use DTL::Fast::Template;

sub new
{
    my( $proto, $argument, %kwargs ) = @_;
    $kwargs{'a'} = $argument;

    return $proto->SUPER::new(%kwargs);
}

sub render
{
    my( $self, $context) = @_;

    return $self->dispatch(
        $self->{'a'}->render($context, 1)
        , $context
    );
}

sub dispatch
{
    my( $self, $arg1 ) = @_;
    die 'Abstract method dispatch was not overriden in subclass '.(ref $self);
}
1;