| line |
true |
false |
branch |
|
80
|
0 |
8 |
if ($ENV{'WEBDYNE_DEBUG_FILE'}) { } |
|
|
0 |
8 |
elsif ($ENV{'WEBDYNE_DEBUG'}) { } |
|
|
0 |
8 |
elsif (ref(my $debug_hr = ${"${caller}::DEBUG";}) eq 'HASH') { } |
|
|
0 |
8 |
elsif (not ref(my $fn = ${"${caller}::DEBUG";}) and ${"${caller}::DEBUG";}) { } |
|
107
|
0 |
0 |
$package ? : |
|
|
0 |
0 |
if ($fn and $package ? $package eq $caller : 1) { } |
|
|
0 |
0 |
elsif (not $fn) { } |
|
138
|
0 |
8 |
if ($debug_fh) { } |
|
147
|
0 |
0 |
if ($ENV{'WEBDYNE_DEBUG'} and $ENV{'WEBDYNE_DEBUG'} ne '1') { } |
|
150
|
0 |
0 |
if ($caller eq $debug_target or $method =~ /\Q$debug_target\E$/) |
|
156
|
0 |
0 |
$_[1] ? : |
|
159
|
0 |
0 |
unless UNIVERSAL::can($caller, 'debug') |
|
160
|
0 |
0 |
unless UNIVERSAL::can($caller, 'Dumper') |
|
168
|
8 |
0 |
unless UNIVERSAL::can($caller, 'debug') |
|
177
|
0 |
8 |
if (my $fn = ${"${caller}::ERROR";}) |
|
198
|
2 |
0 |
@_ ? : |
|
214
|
0 |
0 |
if ($message) { } |
|
215
|
0 |
0 |
@Err ? : |
|
218
|
0 |
0 |
if @param |
|
244
|
0 |
0 |
unless ($message eq (@Err && $Err[0][0])) |
|
254
|
0 |
0 |
if (UNIVERSAL::can($caller, 'debug')) |
|
269
|
0 |
0 |
if (my $fh = 'IO::File'->new($fn, 1089)) { } |
|
287
|
0 |
0 |
$Package{'nofatal'} ? : |
|
298
|
0 |
27 |
if (my $count = @Err) { } |
|
335
|
0 |
0 |
if @_ |
|
355
|
0 |
0 |
if ($message) { } |
|
356
|
0 |
0 |
@Err ? : |
|
369
|
0 |
0 |
@Err ? : |
|
410
|
0 |
0 |
unless $message =~ /[\.\!\?]$/ |
|
412
|
0 |
0 |
if @message |
|
421
|
0 |
0 |
if $message |
|
422
|
0 |
0 |
if @message |
|
446
|
0 |
0 |
$caller_fg++ ? : |
|
461
|
0 |
0 |
if $value |
|
490
|
0 |
0 |
@_ ? : |