File Coverage

blib/lib/Data/Printer/Filter/FORMAT.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package Data::Printer::Filter::FORMAT;
2 32     32   188 use strict;
  32         56  
  32         864  
3 32     32   285 use warnings;
  32         56  
  32         629  
4 32     32   141 use Data::Printer::Filter;
  32         53  
  32         169  
5              
6             filter 'FORMAT' => \&parse;
7              
8              
9             sub parse {
10 2     2 0 5 my ($format, $ddp) = @_;
11 2         16 return $ddp->maybe_colorize('FORMAT', 'format');
12             };
13              
14             1;