| line |
true |
false |
branch |
|
60
|
0 |
200 |
if @_
|
|
68
|
1 |
1 |
if (&looks_like_instance($arg, 'CODE')) { }
|
|
89
|
0 |
248228 |
if exists $VERBOSITY{$pack1}
|
|
90
|
0 |
248228 |
if $sub and exists $VERBOSITY{$sub}
|
|
93
|
0 |
248228 |
if ($verbosity >= $levels{$level})
|
|
96
|
0 |
0 |
if (index($file, $PREFIX) == 0)
|
|
112
|
0 |
0 |
if $_[0]
|
|
113
|
0 |
0 |
if $_[0]
|
|
114
|
4 |
0 |
if $_[0]
|
|
115
|
66121 |
0 |
if $_[0]
|
|
116
|
182103 |
10 |
if $_[0]
|
|
120
|
0 |
0 |
if $prefix
|
|
125
|
2 |
12 |
if ref $_[0] or $_[0] eq 'Bio::Phylo::Util::Logger'
|
|
126
|
14 |
0 |
if (@_)
|
|
131
|
14 |
0 |
if (defined $level)
|
|
134
|
0 |
14 |
if ($level > 4 xor $level < 0)
|
|
139
|
0 |
14 |
if (my $class = $opt{'-class'}) { }
|
|
|
0 |
14 |
elsif (my $method = $opt{'-method'}) { }
|
|
140
|
0 |
0 |
if (ref $class eq 'ARRAY') { }
|
|
154
|
0 |
0 |
if (ref $method eq 'ARRAY') { }
|
|
174
|
0 |
14 |
if ($opt{'-file'})
|
|
175
|
0 |
0 |
unless open my $fh, '>>', $opt{'-file'}
|
|
180
|
0 |
14 |
if ($opt{'-handle'})
|
|
186
|
0 |
14 |
if ($opt{'-listeners'})
|
|
191
|
0 |
14 |
if ($opt{'-prefix'})
|
|
196
|
0 |
14 |
if ($opt{'-style'})
|
|
198
|
0 |
0 |
if (exists $STYLE{$s})
|
|
204
|
0 |
14 |
if defined $opt{'-colors'}
|
|
214
|
0 |
0 |
unless $handle
|
|
215
|
0 |
0 |
if ($COLORED and -t $handle)
|
|
223
|
0 |
0 |
unless $handle
|
|
224
|
0 |
0 |
if ($COLORED and -t $handle)
|