| line |
true |
false |
branch |
|
69
|
0 |
0 |
unless /warningsToBrowser/ |
|
73
|
0 |
1 |
if (grep {/:(?:DEFAULT|carp_browser)/i;} @_) |
|
77
|
0 |
0 |
unless grep {/^$to_brow$/;} @forward_args |
|
82
|
0 |
1 |
if ($CGI::Carp::VERSION =~ /(\d*\.?\d*)/ and $1 < 1.24) |
|
103
|
0 |
0 |
unless ($throw_cloaked) |
|
111
|
0 |
0 |
unless ($mess =~ /<\s*html\b/i) |
|
112
|
0 |
0 |
unless ($mess =~ /<\s*body\b/i) |
|
115
|
0 |
0 |
unless ($mess =~ /<\s*head\b/i) |
|
132
|
0 |
0 |
if ($mod_perl) { } |
|
134
|
0 |
0 |
if ($ENV{'MOD_PERL_API_VERSION'} and $ENV{'MOD_PERL_API_VERSION'} == 2) { } |
|
151
|
0 |
0 |
if ($r->bytes_sent) { } |
|
153
|
0 |
0 |
$mod_perl == 2 ? : |
|
156
|
0 |
0 |
if ($ENV{'HTTP_USER_AGENT'} =~ /MSIE/) |
|
163
|
0 |
0 |
if (defined $bytes_written and $bytes_written > 0) { } |
|
184
|
0 |
0 |
if (@_) |
|
187
|
0 |
0 |
if $new_fref and not ref $new_fref && ref($new_fref) =~ /CODE/i |
|
213
|
0 |
0 |
if (($sub || '') =~ /::_throw_browser$/) { } |
|
231
|
0 |
0 |
unless ($CGI::Carp::WRAP or CGI::Carp::ineval()) |
|
235
|
0 |
0 |
if ($throw_format_fref) { } |
|
237
|
0 |
0 |
if $die_msg |
|
241
|
0 |
0 |
if ($_[-1] and not $_[-1] =~ /\n$/) { } |
|
268
|
0 |
1 |
if $final_warn_browser |