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


line stmt bran cond sub pod time code
1             package DTL::Fast::Expression::Operator::Unary;
2 11     11   7691 use strict; use utf8; use warnings FATAL => 'all';
  11     11   22  
  11     11   279  
  11         55  
  11         20  
  11         56  
  11         267  
  11         20  
  11         368  
3 11     11   52 use parent 'DTL::Fast::Entity';
  11         25  
  11         57  
4              
5 11     11   656 use DTL::Fast::Template;
  11         23  
  11         2067  
6              
7             sub new
8             {
9 216     216 0 540 my( $proto, $argument, %kwargs ) = @_;
10 216         395 $kwargs{'a'} = $argument;
11            
12 216         845 return $proto->SUPER::new(%kwargs);
13             }
14              
15             sub render
16             {
17 0     0 0   my( $self, $context) = @_;
18            
19             return $self->dispatch(
20 0           $self->{'a'}->render($context, 1)
21             , $context
22             );
23             }
24              
25             sub dispatch
26             {
27 0     0 0   my( $self, $arg1 ) = @_;
28 0           die 'Abstract method dispatch was not overriden in subclass '.(ref $self);
29             }
30             1;