| line |
true |
false |
branch |
|
93
|
0 |
63 |
if ($debug_fn = $ENV{'WEBDYNE_DEBUG_FILE'}) { } |
|
|
0 |
63 |
elsif ($ENV{'WEBDYNE_DEBUG'}) { } |
|
|
0 |
63 |
elsif (ref(my $debug_hr = ${"${caller}::DEBUG";}) eq 'HASH') { } |
|
|
0 |
63 |
elsif (not ref($debug_fn = ${"${caller}::DEBUG";}) and ${"${caller}::DEBUG";}) { } |
|
119
|
0 |
0 |
$package ? : |
|
|
0 |
0 |
if ($debug_fn and $package ? $package eq $caller : 1) { } |
|
|
0 |
0 |
elsif (not $debug_fn) { } |
|
150
|
0 |
63 |
if ($debug_fh) { } |
|
162
|
0 |
0 |
if ($ENV{'WEBDYNE_DEBUG'} and $ENV{'WEBDYNE_DEBUG'} ne '1') { } |
|
165
|
0 |
0 |
if ($caller eq $debug_target or $method =~ /\Q$debug_target\E$/) |
|
171
|
0 |
0 |
$_[1] ? : |
|
194
|
0 |
63 |
if (my $fn = ${"${caller}::ERROR";}) |
|
240
|
0 |
0 |
$#_ ? : |
|
245
|
0 |
0 |
if ($Package{'WEBDYNE_DEBUG'} and $Package{'WEBDYNE_DEBUG'} ne '1') { } |
|
252
|
0 |
0 |
if ($caller eq $debug_target or $method =~ /\Q$debug_target\E$/) |
|
256
|
0 |
0 |
if (my $regexp = $ENV{'WEBDYNE_DEBUG_FILTER'}) |
|
257
|
0 |
0 |
unless $debug =~ qr/$regexp/m |
|
267
|
0 |
0 |
if (my $regexp = $ENV{'WEBDYNE_DEBUG_FILTER'}) |
|
268
|
0 |
0 |
unless $debug =~ qr/$regexp/ |
|
281
|
7 |
0 |
if (@_) { } |
|
297
|
0 |
0 |
if ($message) { } |
|
298
|
0 |
0 |
@Err ? : |
|
301
|
0 |
0 |
if @param |
|
327
|
0 |
0 |
unless ($message eq (@Err && $Err[0][0])) |
|
337
|
0 |
0 |
if (UNIVERSAL::can($caller, "debug")) |
|
352
|
0 |
0 |
if (my $fh = 'IO::File'->new($fn, 1089)) { } |
|
370
|
0 |
0 |
$Package{'nofatal'} ? : |
|
381
|
0 |
62 |
if (my $count = @Err) { } |
|
418
|
0 |
0 |
if @_ |
|
438
|
0 |
0 |
if ($message) { } |
|
439
|
0 |
0 |
@Err ? : |
|
452
|
0 |
0 |
@Err ? : |
|
493
|
0 |
0 |
unless $message =~ /[\.\!\?]$/ |
|
495
|
0 |
0 |
if @message |
|
504
|
0 |
0 |
if $message |
|
505
|
0 |
0 |
if @message |
|
529
|
0 |
0 |
$caller_fg++ ? : |
|
544
|
0 |
0 |
if $value |
|
573
|
0 |
0 |
@_ ? : |