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   3251 use strict; use utf8; use warnings FATAL => 'all';
  5     5   9  
  5     5   132  
  5         26  
  5         9  
  5         31  
  5         132  
  5         12  
  5         183  
3 5     5   26 use parent 'DTL::Fast::Tag::Simple';
  5         11  
  5         28  
4              
5             $DTL::Fast::TAG_HANDLERS{'debug'} = __PACKAGE__;
6              
7             #@Override
8             sub render
9             {
10 0     0 0   my $self = shift;
11 0           my $context = shift;
12              
13 0           require Data::Dumper;
14 0           my $result = Data::Dumper->Dump([$context], ['context']);
15            
16 0           return $result;
17             }
18              
19             1;