| line |
true |
false |
branch |
|
59
|
0 |
200 |
if @_ |
|
67
|
1 |
1 |
if (&looks_like_instance($arg, 'CODE')) { } |
|
88
|
0 |
229139 |
if exists $VERBOSITY{$pack1} |
|
89
|
0 |
229139 |
if $sub and exists $VERBOSITY{$sub} |
|
92
|
0 |
229139 |
if ($verbosity >= $levels{$level}) |
|
95
|
0 |
0 |
if (index($file, $PREFIX) == 0) |
|
111
|
0 |
0 |
if $_[0] |
|
112
|
0 |
0 |
if $_[0] |
|
113
|
4 |
0 |
if $_[0] |
|
114
|
61084 |
0 |
if $_[0] |
|
115
|
168051 |
10 |
if $_[0] |
|
119
|
0 |
0 |
if $prefix |
|
124
|
2 |
12 |
if ref $_[0] or $_[0] eq 'Bio::Phylo::Util::Logger' |
|
125
|
14 |
0 |
if (@_) |
|
130
|
14 |
0 |
if (defined $level) |
|
133
|
0 |
14 |
if ($level > 4 xor $level < 0) |
|
138
|
0 |
14 |
if (my $class = $opt{'-class'}) { } |
|
|
0 |
14 |
elsif (my $method = $opt{'-method'}) { } |
|
139
|
0 |
0 |
if (ref $class eq 'ARRAY') { } |
|
153
|
0 |
0 |
if (ref $method eq 'ARRAY') { } |
|
173
|
0 |
14 |
if ($opt{'-file'}) |
|
174
|
0 |
0 |
unless open my $fh, '>>', $opt{'-file'} |
|
179
|
0 |
14 |
if ($opt{'-handle'}) |
|
185
|
0 |
14 |
if ($opt{'-listeners'}) |
|
190
|
0 |
14 |
if ($opt{'-prefix'}) |
|
195
|
0 |
14 |
if ($opt{'-style'}) |
|
197
|
0 |
0 |
if (exists $STYLE{$s}) |
|
203
|
0 |
14 |
if defined $opt{'-colors'} |
|
213
|
0 |
0 |
unless $handle |
|
214
|
0 |
0 |
if ($COLORED and -t $handle) |
|
222
|
0 |
0 |
unless $handle |
|
223
|
0 |
0 |
if ($COLORED and -t $handle) |