Branch Coverage

blib/lib/IO/All/File.pm
Criterion Covered Total %
branch 38 58 65.5


line true false branch
18 9 327 if (@_ and @_ > 1) { }
307 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 114 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 ? :
116 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')