| line |
true |
false |
branch |
|
57
|
1 |
0 |
unless defined $Devel::Module::Trace::print |
|
58
|
1 |
0 |
unless defined $Devel::Module::Trace::filter |
|
59
|
1 |
0 |
unless defined $Devel::Module::Trace::enabled |
|
60
|
1 |
0 |
unless defined $Devel::Module::Trace::save |
|
61
|
1 |
0 |
unless defined $Devel::Module::Trace::autostart |
|
66
|
0 |
0 |
if ($option eq 'print') { } |
|
|
0 |
0 |
elsif ($option eq 'noautostart') { } |
|
|
0 |
0 |
elsif ($option =~ /filter=(.*)$/) { } |
|
|
0 |
0 |
elsif ($option =~ /save=(.*)$/) { } |
|
111
|
0 |
0 |
unless open my $fh, '>', $file |
|
133
|
0 |
0 |
unless $raw |
|
134
|
0 |
0 |
unless ($indent) |
|
138
|
0 |
0 |
if $max_module == 0 |
|
139
|
0 |
0 |
if $indent == 0 |
|
142
|
0 |
0 |
if _filtered($$mod{'name'}) |
|
152
|
0 |
0 |
if ($$mod{'sub'}) |
|
156
|
0 |
0 |
if $indent == 0 |
|
170
|
6 |
1 |
unless ($Devel::Module::Trace::enabled) |
|
181
|
0 |
1 |
unless ($$code[$l]) |
|
188
|
0 |
0 |
unless ($$code[$i] =~ /^\s*$|^\s*\#/mox) |
|
193
|
0 |
1 |
unless ($code_str =~ /^\s*(use|require)/mox) |
|
210
|
0 |
1 |
if scalar @{$cur_lvl;} |
|
224
|
1 |
0 |
if $Devel::Module::Trace::autostart |
|
231
|
0 |
0 |
if ($mod =~ /$f/mx) |
|
234
|
0 |
0 |
if ($f eq 'perl' and $mod =~ /^[\d\.]+$/mx) |
|
245
|
0 |
0 |
if _filtered($mod) |
|
248
|
0 |
0 |
if $max_module < $l1 |
|
249
|
0 |
0 |
if $max_caller < $l2 |
|
250
|
0 |
0 |
if ($$mod{'sub'}) |