| line |
true |
false |
branch |
|
58
|
4390 |
470 |
unless exists $args->{$param} |
|
62
|
5 |
400 |
if ($self->{'fh'} and not $self->{'file_offset'}) |
|
66
|
399 |
6 |
unless $self->{'fh'} |
|
88
|
414 |
0 |
if (not -e $self->{'file'} or -w _) { } |
|
96
|
1 |
413 |
unless sysopen $fh, $self->{'file'}, $flags |
|
103
|
413 |
0 |
if ($self->{'autoflush'}) |
|
123
|
410 |
22 |
if ($self->{'fh'}) |
|
142
|
0 |
0 |
unless $self->{'fh'} |
|
160
|
393 |
2560 |
unless (defined $self->{'inode'}) |
|
195
|
8 |
37746 |
if (tell $fh > $len + 2 ** (8 * $self->{'byte_size'}) - 1) |
|
204
|
0 |
37746 |
unless print $fh @_ |
|
226
|
135276 |
598 |
if (defined $loc) |
|
249
|
0 |
397 |
unless $self |
|
317
|
0 |
3170 |
unless defined $fh |
|
318
|
0 |
3170 |
unless defined fileno $fh |
|
341
|
0 |
15185 |
unless defined $type |
|
345
|
0 |
15185 |
if ($^O eq "MSWin32" or $^O eq "cygwin") |
|
349
|
1 |
15184 |
unless (defined $self->{'fh'}) |
|
354
|
15181 |
3 |
if ($self->{'locking'}) |
|
355
|
6277 |
8904 |
unless ($self->{'locked'}) |
|
364
|
12 |
6265 |
if (defined $self->{'inode'} and $stats[1] != $self->{'inode'}) |
|
388
|
6 |
15173 |
unless (defined $self->{'fh'}) |
|
390
|
15167 |
6 |
if ($self->{'locking'} and $self->{'locked'} > 0) |
|
393
|
6266 |
8901 |
unless ($self->{'locked'}) |