Branch Coverage

blib/lib/PBS/Logs.pm
Criterion Covered Total %
branch 88 110 80.0


line true false branch
82 0 0 if $debug or $$self{'-debug'}
0 50 if $debug or $$self{'-debug'}
127 0 48 if $debug or $$self{'-debug'}
130 26 22 if (ref $x eq 'ARRAY') { }
8 14 elsif (ref $x eq 'GLOB') { }
10 4 elsif (not ref $x) { }
137 2 8 unless open PBSIN, $x
152 0 42 if $debug or $$self{'-debug'}
154 8 34 if ref $$self{'input'} eq 'GLOB'
158 0 44 if $debug
179 12 4 if (index(ref $self, 'PBS::Logs') == 0) { }
180 6 6 @_ ? :
183 2 2 defined $self ? :
198 0 1169 if $debug or $$self{'-debug'}
200 16 1153 unless defined $$self{'line'}
202 927 226 $$self{'line'} > 0 ? :
217 0 1231 if $debug or $$self{'-debug'}
219 216 1015 unless defined $$self{'current'}
231 0 66 if $debug or $$self{'-debug'}
233 8 58 if ($$self{'type'} eq 'FILE')
234 0 8 unless seek $$self{'input'}, 0, 0
238 66 0 if $$self{'type'} ne 'FILTER'
251 0 16 if $debug or $$self{'-debug'}
253 8 8 if ($$self{'type'} eq 'FILE')
275 0 4633 if $debug or $$self{'-debug'}
279 3709 924 if ($$self{'type'} eq 'ARRAY') { }
281 3585 124 if scalar @{$$self{'input'};} > $$self{'line'} and $$self{'line'} != -1
284 900 24 unless eof $$self{'input'}
288 4485 148 if (defined $l) { }
308 0 1389 if $debug or $$self{'-debug'}
313 124 1265 unless defined $line
316 0 4385 unless defined $l
317 1265 3120 if ($l =~ /^$datetime_regex/) { }
324 124 1265 unless defined $l
326 1365 24 if (defined $line) { }
351 0 1243 if $debug or $$self{'-debug'}
354 76 1167 if ($$self{'line'} == -1)
356 15 61 if wantarray
364 90 1275 if defined $$self{'-start'} and $dt < $$self{'-start'}
366 132 1143 if defined $$self{'-end'} and $dt > $$self{'-end'}
371 0 1167 unless defined wantarray
372 200 0 defined $a ? :
200 967 if wantarray
393 0 1409 if $debug or $$self{'-debug'}
397 0 1409 unless defined $dt
402 0 1409 if (wantarray) { }
433 0 96 if $debug or $$self{'-debug'}
438 27 69 unless defined $st
441 3 66 unless (defined $et)
447 32 34 if ($st eq 'none') { }
6 28 elsif ($st =~ /^\d+$/) { }
22 6 elsif ($st =~ /^$datetime_regex$/) { }
459 26 34 if ($et eq 'none') { }
6 28 elsif ($et =~ /^\d+$/) { }
22 6 elsif ($et =~ /^$datetime_regex$/) { }