Branch Coverage
File:
local/lib/perl5/Data/Printer/Filter.pm
Coverage:
33.3%
line
%
coverage
branch
20
50
T
F
unless $type and $code and ref $code eq 'CODE'
23
50
T
F
if ($extra) { }
24
0
T
F
unless ref $extra and ref $extra eq 'HASH'