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 34     34   228 use strict;
  34         69  
  34         934  
3 34     34   170 use warnings;
  34         68  
  34         740  
4 34     34   168 use Data::Printer::Filter;
  34         65  
  34         221  
5              
6             filter 'FORMAT' => \&parse;
7              
8              
9             sub parse {
10 2     2 0 5 my ($format, $ddp) = @_;
11 2         8 return $ddp->maybe_colorize('FORMAT', 'format');
12             };
13              
14             1;