| blib/lib/Logfile/Tail/Switch.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 22 | 86.3 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 0 | 2 | unless defined $glob |
| 36 | 0 | 3 | unless open my $fh, '<', $filename |
| 37 | 1 | 2 | if $seek_end |
| 47 | 9 | 7 | if ($pos == $size) { } |
| 0 | 7 | elsif ($pos > $size) { } | |
| 68 | 12 | 3 | if $self->{'_last_check_time'} and $self->{'_last_check_time'} >= $now - $self->{'opts'}{'check_freq'} |
| 73 | 1 | 2 | unless @files |
| 74 | 1 | 1 | if (defined $self->{'_cur_fh'}) { } |
| 80 | 2 | 2 | if $_ gt $self->{'_cur_file'} |
| 90 | 1 | 14 | unless $self->{'_cur_fh'} |
| 93 | 2 | 12 | if (not length $line and keys %{$$self{'_pending'};}) |