Branch Coverage

blib/lib/IO/All/Filesys.pm
Criterion Covered Total %
branch 23 32 71.8


line true false branch
39 2 0 if $self->filename =~ /\.([^\.]+)$/
53 16 351 if @_
54 202 149 if defined *$self->{'is_absolute'}
56 10 139 IO::All::is_absolute($self) ? :
69 7 3722 if @_
70 9 3713 if defined *$self->{'pathname'}
76 1 1 if (my $base = $_[0]) { }
1 0 elsif ($self->is_absolute) { }
88 0 0 UNIVERSAL::isa($new, 'IO::All') ? :
0 0 CORE::rename($self->name, "$new") ? :
97 112 3 unless $self->_lock
99 2 1 $self->mode =~ /^>>?$/ ? :
107 0 1 if $self->is_open
119 4 117 if $self->_lock
127 1 0 unless defined $atime
128 1 0 unless defined $mtime