| line |
true |
false |
branch |
|
59
|
0 |
200 |
if @_
|
|
67
|
1 |
1 |
if (&looks_like_instance($arg, 'CODE')) { }
|
|
88
|
0 |
235631 |
if exists $VERBOSITY{$pack1}
|
|
89
|
0 |
235631 |
if $sub and exists $VERBOSITY{$sub}
|
|
92
|
0 |
235631 |
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
|
70999 |
0 |
if $_[0]
|
|
115
|
164628 |
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)
|