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 35     35   260 use strict;
  35         75  
  35         1001  
3 35     35   169 use warnings;
  35         78  
  35         799  
4 35     35   175 use Data::Printer::Filter;
  35         74  
  35         240  
5              
6             filter 'FORMAT' => \&parse;
7              
8              
9             sub parse {
10 2     2 0 8 my ($format, $ddp) = @_;
11 2         8 return $ddp->maybe_colorize('FORMAT', 'format');
12             };
13              
14             1;