File Coverage

blib/lib/DTL/Fast/Tag/Debug.pm
Criterion Covered Total %
statement 12 17 70.5
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 23 69.5


line stmt bran cond sub pod time code
1             package DTL::Fast::Tag::Debug;
2 5     5   1753 use strict;
  5         9  
  5         115  
3 5     5   41 use utf8;
  5         11  
  5         20  
4 5     5   107 use warnings FATAL => 'all';
  5         12  
  5         144  
5 5     5   25 use parent 'DTL::Fast::Tag::Simple';
  5         10  
  5         22  
6              
7             $DTL::Fast::TAG_HANDLERS{debug} = __PACKAGE__;
8              
9             #@Override
10             sub render
11             {
12 0     0 0   my $self = shift;
13 0           my $context = shift;
14              
15 0           require Data::Dumper;
16 0           my $result = Data::Dumper->Dump([ $context ], [ 'context' ]);
17              
18 0           return $result;
19             }
20              
21             1;