| line |
true |
false |
branch |
|
18
|
9 |
324 |
if (@_ and @_ > 1) { } |
|
|
304 |
20 |
elsif (@_) { } |
|
29
|
0 |
0 |
if @_ |
|
36
|
0 |
4 |
unless my $name = $self->pathname |
|
45
|
6 |
2 |
if $self->is_open |
|
48
|
0 |
2 |
unless my $io_handle = 'File::ReadBackwards'->new($file_name) |
|
56
|
117 |
101 |
if $self->is_open |
|
57
|
101 |
0 |
unless $self->mode |
|
81
|
3 |
113 |
if $self->_assert |
|
83
|
11 |
105 |
if defined $mode |
|
84
|
1 |
115 |
unless defined $self->mode |
|
85
|
0 |
116 |
if defined $perms |
|
87
|
0 |
116 |
if defined $self->perms |
|
88
|
116 |
0 |
if (defined $self->pathname) { } |
|
|
0 |
0 |
elsif (defined $self->_handle and not $self->io_handle->opened) { } |
|
90
|
1 |
115 |
unless $self->io_handle->open($self->pathname, @args) |
|
112
|
1 |
0 |
defined $self->pathname ? : |
|
115
|
1 |
0 |
defined $mode_msg{$self->mode} ? : |
|
125
|
0 |
1 |
unless File::Copy::copy($self->name, $new) |
|
132
|
6 |
120 |
unless $self->is_open |
|
138
|
3 |
117 |
if (my $tied_file = $self->tied_file) |
|
139
|
1 |
2 |
if (ref $tied_file eq 'ARRAY') { } |
|
148
|
117 |
0 |
if defined $io_handle |
|
187
|
15 |
0 |
if (defined(my $l = $self->getline)) { } |
|
196
|
2 |
0 |
wantarray ? : |
|
208
|
0 |
0 |
wantarray ? : |
|
213
|
1 |
1 |
if -e $self->pathname |
|
215
|
0 |
1 |
if $self->is_open |
|
257
|
0 |
5 |
unless $_[1]->isa('IO::All::DBM') |