| line |
true |
false |
branch |
|
39
|
2 |
0 |
if $self->filename =~ /\.([^\.]+)$/ |
|
53
|
17 |
355 |
if @_ |
|
55
|
204 |
151 |
if defined *$self->{'is_absolute'} |
|
56
|
11 |
140 |
IO::All::is_absolute($self) ? : |
|
69
|
7 |
3745 |
if @_ |
|
70
|
9 |
3736 |
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 |