line |
true |
false |
branch |
156
|
5 |
11 |
if exists $params{$_} |
160
|
7 |
1 |
if exists $params{$_} |
162
|
1 |
7 |
if (exists $params{'filename'}) { } |
|
7 |
0 |
elsif (exists $params{'handle'} or exists $params{'read_handle'}) { } |
168
|
7 |
0 |
unless defined $handle |
174
|
0 |
8 |
if defined $params{'write_handle'} |
178
|
7 |
1 |
if ($self->read_handle and not defined $self->{'last_size'}) |
198
|
14 |
7 |
if ($want) { } |
199
|
14 |
0 |
if not $self->{'file'}->is_running |
211
|
0 |
7 |
if $want |
216
|
0 |
1 |
unless my $self = shift() |
225
|
0 |
9 |
unless my $self = shift() |
228
|
1 |
8 |
if ($size < $self->{'last_size'}) |
243
|
4 |
7 |
if defined $self->{'last_pos'} |
249
|
0 |
11 |
if ($self->{'last_pos'} < $self->{'last_size'}) { } |
|
1 |
10 |
elsif ($self->{'renamed'}) { } |
257
|
1 |
0 |
if ($self->{'last_pos'}) |
296
|
0 |
2 |
unless $self->{'running_initial'} |
298
|
1 |
1 |
unless defined $whence |
357
|
0 |
1 |
unless $self->{'running_initial'} |
363
|
1 |
0 |
unless defined $opts{'horizon'} |
364
|
1 |
0 |
$opts{'horizon'} ? : |
365
|
0 |
1 |
if $horizon < 0 |
367
|
0 |
1 |
ref $str_pattern ? : |
372
|
0 |
3 |
if $len > $offset |
380
|
1 |
2 |
if (() = ($buffer . $prev) =~ /$re/gs) |