| line |
true |
false |
branch |
|
121
|
0 |
15 |
if $package->verbose |
|
125
|
90 |
1 |
unless (defined $package->$def) |
|
146
|
0 |
12 |
if (defined wantarray) { } |
|
147
|
0 |
0 |
unless 'DBI'->connect($dsn, $user, $pass, $options) |
|
186
|
14 |
4 |
if ($ref) |
|
187
|
3 |
11 |
if ($name eq 'BEGIN') { } |
|
220
|
4 |
16 |
if (my $err = $@) { } |
|
265
|
11 |
6 |
unless $$result[0][0] |
|
320
|
0 |
1 |
if $seen{$name}++ |
|
322
|
0 |
1 |
if $package->verbose |
|
324
|
1 |
0 |
$current_version < $new_version ? : |
|
328
|
0 |
1 |
if ($action eq 'I') { } |
|
|
1 |
0 |
elsif ($action eq 'U') { } |
|
|
0 |
0 |
elsif ($action eq 'D') { } |
|
418
|
0 |
0 |
if (not eval {
do {
$package->update_sub($name, $new_code)
}
}) |
|
419
|
0 |
0 |
if $package->verbose |
|
473
|
0 |
0 |
unless ($package->dbh) |