| line |
true |
false |
branch |
|
84
|
6 |
0 |
unless defined $Perl::Metrics::TRACE |
|
120
|
0 |
5 |
unless my $file = shift() |
|
125
|
0 |
5 |
if ($Perl::Metrics::CDBI::DSN) |
|
140
|
4 |
1 |
if ($create) |
|
143
|
0 |
8 |
unless $dbh->do($sql_create_table) |
|
178
|
0 |
10 |
unless (defined $path and not ref $path and $path ne '') |
|
181
|
0 |
10 |
unless ('File::Spec'->file_name_is_absolute($path)) |
|
184
|
0 |
10 |
unless -f $path |
|
185
|
0 |
10 |
unless -r _ |
|
196
|
1 |
9 |
if ($file and $file->checked > $f[9]) |
|
203
|
0 |
9 |
unless my $md5hex = PPI::Util::md5hex_file($path) |
|
206
|
0 |
9 |
if ($file) { } |
|
242
|
0 |
3 |
unless (defined $path and not ref $path and $path ne '') |
|
245
|
0 |
3 |
unless ('File::Spec'->file_name_is_absolute($path)) |
|
248
|
0 |
3 |
unless -d $path |
|
249
|
0 |
3 |
unless -r _ |
|
250
|
0 |
3 |
unless -x _ |
|
287
|
0 |
1 |
if $@ |
|
319
|
45 |
0 |
unless $Perl::Metrics::TRACE |