| blib/lib/IO/All/File.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 7 | 15 | 46.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 18 | 20 | 307 | 9 | @_ and @_ > 1 |
| 88 | 0 | 0 | 0 | defined $self->_handle and not $self->io_handle->opened |
| line | l | !l | condition |
|---|---|---|---|
| 181 | 1 | 1 | shift() || 10 |
| 201 | 0 | 0 | shift() || 10 |
| 205 | 0 | 0 | $self->getline_backwards || (last) |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 63 | 1 | 0 | 5 | $self->tied_file || do { eval { do { require Tie::File } }; $self->throw("Tie::File required for file array operations:\n$@") if $@; my $array_ref = do { my @array; \@array }; my $name = $self->pathname; my(@options) = $self->_rdonly ? ('mode', 0) : (); push @options, ('recsep', $self->separator); tie @$array_ref, 'Tie::File', $name, @options; $self->throw("Can't tie 'Tie::File' to '${name}':\n$!") unless tied @$array_ref; $self->tied_file($array_ref) } |