Branch Coverage

blib/lib/Digest/MD5/File.pm

Criterion	Covered	Total	%
branch	40	122	32.7

line	true	false	branch
26	0	9	if exists $imp{$_}
29	0	1	if exists $imp{-'nobin'}
30	0	1	if exists $imp{-'utf8'}
31	0	1	if exists $imp{-'nofatals'}
35	0	0	unless $_ =~ /^(no)?(bin|utf8|fatals)$/
36	0	0	unless $_ =~ /^(no)?(bin|utf8|fatals)$/
37	0	0	if exists $imp{"-$_"}
69	0	8	unless $key
71	6	2	unless -d $file
80	3	3	if ref $cc ne 'HASH'
81	3	3	if ref $hr ne 'HASH'
82	3	3	unless defined $base
83	0	6	unless defined $type
86	2	4	if $type eq '1'
87	0	6	if $type eq '2'
89	0	6	unless opendir DIR, $dir
90	18	6	if $_ ne '.'
95	3	9	-d $_dirver ? :
100	0	12	if (-l $full)
102	0	0	if -d $target
105	0	12	if (exists $$hr{$full})
108	0	0	if $$cc{$full} > 4
112	3	9	if (-d $full) { }
114	0	3	unless _dir($full, $hr, $base, $type, $cc)
118	3	6	if $type ne '3'
125	0	0	if @_ < 3
126	0	0	if @_ < 3
131	1	0	if @_ < 3
132	1	0	if @_ < 3
137	0	0	if @_ < 3
138	0	0	if @_ < 3
144	0	0	if defined $bn
145	0	0	if defined $ut
146	0	0	unless my $fh = &$getfh($file)
151	0	0	$UTF8 ? :
158	0	4	if defined $bn
159	0	4	if defined $ut
160	0	4	unless my $fh = &$getfh($file)
165	0	4	$UTF8 ? :
172	0	0	if defined $bn
173	0	0	if defined $ut
174	0	0	unless my $fh = &$getfh($file)
179	0	0	$UTF8 ? :
185	0	0	unless my $cn = &$getur(shift())
187	0	0	if defined $ut
188	0	0	unless $UTF8
193	0	0	unless my $cn = &$getur(shift())
195	0	0	if defined $ut
196	0	0	unless $UTF8
201	0	0	unless my $cn = &$getur(shift())
203	0	0	if defined $ut
204	0	0	unless $UTF8
211	0	6	if defined $bn
212	0	6	if defined $ut
213	0	6	if (ref $fl eq 'ARRAY') { }
215	0	0	unless $md5->addpath($pth, $bn, $ut)
219	0	6	unless my $fh = &$getfh($fl)
222	6	0	!$UTF8 ? :
230	0	0	unless my $cn = &$getur(shift())
232	0	0	if defined $ut
233	0	0	!$UTF8 ? :