| blib/lib/WebDyne/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 3 | 59 | 5.0 |
| line | l | !l | condition |
|---|---|---|---|
| 298 | 0 | 0 | $Err[$#Err][0] && (return undef) |
| 439 | 0 | 0 | $Err[$#Err][0] && (return undef) |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 93 | 0 | 63 | 0 | not ref($debug_fn = ${"${caller}::DEBUG";}) and ${"${caller}::DEBUG";} |
| 119 | 0 | 0 | 0 | $debug_fn and $package ? $package eq $caller : 1 |
| 162 | 0 | 0 | 0 | $ENV{'WEBDYNE_DEBUG'} and $ENV{'WEBDYNE_DEBUG'} ne 1 |
| 245 | 0 | 0 | 0 | $Package{'WEBDYNE_DEBUG'} and $Package{'WEBDYNE_DEBUG'} ne 1 |
| 327 | 0 | 0 | 0 | @Err && $Err[0][0] |
| line | l | !l | condition |
|---|---|---|---|
| 83 | 63 | 0 | (caller 0)[0] || (return undef) |
| 120 | 0 | 0 | $mode ||= 1089 |
| 160 | 0 | 0 | (caller 1)[3] || 'main' |
| 216 | 0 | 30 | $Package{'debug_fh'} || (return undef) |
| 224 | 0 | 0 | (caller 0)[0] || (return undef) |
| 226 | 0 | 0 | (caller 1)[3] || 'main' |
| 521 | 0 | 0 | $$err_ar[$i + 1][3] || $err_ar->[$i][0] || (last) |
| 522 | 0 | 0 | $err_ar->[$i][2] || (next) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 97 | 0 | 0 | 0 | 'IO::File'->new($debug_fn, 1089) || do { warn "unable to open file '${debug_fn}', $!"; undef } |
| 117 | 0 | 0 | 0 | $debug_hr->{'file'} || $debug_hr->{'filename'} |
| 123 | 0 | 0 | 0 | 'IO::File'->new($debug_fn, $mode) || do { warn "unable to open file '${debug_fn}', $!"; undef } |
| 0 | 0 | 0 | $Package{'debug_fh'}{$debug_fn} ||= 'IO::File'->new($debug_fn, $mode) || do { warn "unable to open file '${debug_fn}', $!"; undef } | |
| 140 | 0 | 0 | 0 | 'IO::File'->new($debug_fn, 1089) || do { warn "unable to open file '${debug_fn}', $!"; undef } |
| 0 | 0 | 0 | $Package{'debug_fh'}{$debug_fn} ||= 'IO::File'->new($debug_fn, 1089) || do { warn "unable to open file '${debug_fn}', $!"; undef } | |
| 165 | 0 | 0 | 0 | $caller eq $debug_target or $method =~ /\Q$debug_target\E$/ |
| 252 | 0 | 0 | 0 | $caller eq $debug_target or $method =~ /\Q$debug_target\E$/ |