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   5180 use strict; use utf8; use warnings FATAL => 'all';
  11     11   13  
  11     11   273  
  11         35  
  11         13  
  11         40  
  11         201  
  11         11  
  11         359  
3 11     11   33 use parent 'DTL::Fast::Entity';
  11         10  
  11         46  
4              
5 11     11   538 use DTL::Fast::Template;
  11         11  
  11         1517  
6              
7             sub new
8             {
9 216     216 0 326 my( $proto, $argument, %kwargs ) = @_;
10 216         277 $kwargs{'a'} = $argument;
11            
12 216         604 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;