Branch Coverage

blib/lib/File/OldSlurp.pm

Criterion	Covered	Total	%
branch	22	38	57.8

line	true	false	branch
19	1	5	wantarray ? :
24	0	6	unless open F, "<$file"
26	0	6	unless close F
28	5	1	unless wantarray
38	0	26	unless open F, ">$f"
39	0	26	unless print F @data
40	0	26	unless close F
50	1	1	if (-e $f) { }
51	0	1	unless open F, "+<$f"
53	0	1	unless open F, "+>$f"
55	0	2	unless print F @data
57	0	2	unless defined $where
59	0	2	unless truncate F, $where
61	0	2	unless close F
71	0	2	unless open F, ">>$f"
72	0	2	unless print F @data
73	0	2	unless close F
84	0	3	unless opendir D, $d
86	0	3	unless closedir D