line |
true |
false |
branch |
25
|
0 |
16 |
unless exists $self->{'log_level'} |
28
|
16 |
0 |
unless $self->{'log_level'} =~ /^\d+$/ |
30
|
1 |
15 |
if ($self->{'no_trace'}) { } |
|
6 |
9 |
elsif ($self->{'skip_packages'} and &reftype($self->{'skip_packages'}) eq 'REGEXP') { } |
33
|
1 |
0 |
unless $text =~ /\n$/ |
41
|
0 |
6 |
$self->{'skip_me'} ? : |
53
|
3 |
3 |
$self->{'full_trace'} ? : |
66
|
1 |
8 |
if $self->{'skip_me'} |
68
|
3 |
6 |
if (exists $self->{'skip_packages'}) |
69
|
1 |
2 |
if (&reftype($self->{'skip_packages'}) eq 'ARRAY') { } |
79
|
3 |
6 |
$self->{'full_trace'} ? : |
99
|
1 |
10 |
if $method_level > $self->{'log_level'} |