| line |
true |
false |
branch |
|
96
|
156 |
325 |
length $opts->{'separator'} ? :
|
|
97
|
0 |
481 |
unless length $path
|
|
98
|
156 |
325 |
$opts->{'separator'} ? :
|
|
101
|
156 |
325 |
$opts->{'separator'} ? :
|
|
106
|
1 |
480 |
if (substr($path, 0, 2) eq ".$sep") { }
|
|
|
0 |
480 |
elsif (substr($path, 0, 3) eq "..$sep") { }
|
|
|
0 |
480 |
elsif (substr($path, 0, 3) eq "$sep.$sep") { }
|
|
|
0 |
480 |
elsif (substr($path, 0, 2) eq "$sep." and 2 == $len) { }
|
|
|
0 |
480 |
elsif ($path eq '..' or $path eq '.') { }
|
|
|
6 |
474 |
elsif ($path eq $sep) { }
|
|
140
|
19 |
2339 |
if ($segment eq '..') { }
|
|
|
2 |
2337 |
elsif ($segment eq '.') { }
|
|
150
|
2337 |
0 |
defined $segment ? :
|
|
156
|
7 |
468 |
unless 'File::Spec'->file_name_is_absolute($new_path)
|
|
158
|
156 |
319 |
if ($opts->{'separator'}) { }
|
|
166
|
156 |
319 |
$opts->{'separator'} ? :
|
|
176
|
0 |
0 |
!(scalar(@_) % 2) ? :
|
|
|
58 |
0 |
&Scalar::Util::reftype($_[0]) eq 'HASH' ? :
|
|
182
|
0 |
58 |
unless length $file
|
|
188
|
58 |
0 |
if length $binmode
|
|
190
|
0 |
58 |
if ($binmode eq ':unix' and $size = -s $fh) { }
|
|
202
|
0 |
58 |
if ($Nice::Try::WANTARRAY) { }
|
|
|
58 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
|
0 |
58 |
length $@ ? :
|
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
|
0 |
58 |
if ($Nice::Try::DIED)
|
|
205
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
|
0 |
58 |
$Nice::Try::WANTARRAY ? :
|
|
|
58 |
0 |
if (defined $Nice::Try::WANTARRAY and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL'))
|
|
213
|
58 |
0 |
!(scalar(@_) % 2) ? :
|
|
|
0 |
58 |
&Scalar::Util::reftype($_[0]) eq 'HASH' ? :
|
|
220
|
0 |
58 |
unless length $file
|