| line |
true |
false |
branch |
|
22
|
0 |
49 |
unless open my $fh, "<", $file |
|
62
|
0 |
48 |
if (-d $$self) |
|
66
|
0 |
48 |
if (-f $$self and not _catalog_ok($$self)) |
|
89
|
0 |
1 |
if (-d $$self) |
|
93
|
0 |
1 |
if (-f $$self and not _catalog_ok($$self)) |
|
109
|
0 |
0 |
unless my $fetch = $ff->fetch("to", $tmp) |
|
112
|
0 |
0 |
unless (_catalog_ok($fetch)) |
|
116
|
0 |
0 |
unless move($fetch, $$self) |
|
130
|
0 |
65 |
unless (-f $$self) |
|
136
|
0 |
65 |
unless open my $fh, "<", $$self |
|
142
|
65 |
645 |
if ($row->[0] eq $id) |
|
150
|
65 |
0 |
defined $book ? : |
|
159
|
0 |
16 |
unless (-f $$self) |
|
166
|
121 |
23 |
unless ref $param->{$p} eq "CODE" |