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) |