| line |
true |
false |
branch |
|
31
|
0 |
481 |
unless length $path
|
|
38
|
1 |
480 |
if (substr($path, 0, 2) eq './') { }
|
|
|
0 |
480 |
elsif (substr($path, 0, 3) eq '../') { }
|
|
|
0 |
480 |
elsif (substr($path, 0, 3) eq '/./') { }
|
|
|
0 |
480 |
elsif (substr($path, 0, 2) eq '/.' and 2 == $len) { }
|
|
|
0 |
480 |
elsif ($path eq '..' or $path eq '.') { }
|
|
|
6 |
474 |
elsif ($path eq '/') { }
|
|
72
|
19 |
2339 |
if ($segment eq '..') { }
|
|
|
2 |
2337 |
elsif ($segment eq '.') { }
|
|
82
|
2337 |
0 |
defined $segment ? :
|
|
87
|
7 |
468 |
unless substr($new_path, 0, 1) eq '/'
|
|
98
|
0 |
0 |
!(scalar(@_) % 2) ? :
|
|
|
58 |
0 |
&Scalar::Util::reftype($_[0]) eq 'HASH' ? :
|
|
104
|
0 |
58 |
unless length $file
|
|
110
|
58 |
0 |
if length $binmode
|
|
112
|
0 |
58 |
if ($binmode eq ':unix' and $size = -s $fh) { }
|
|
124
|
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)
|
|
127
|
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'))
|
|
135
|
58 |
0 |
!(scalar(@_) % 2) ? :
|
|
|
0 |
58 |
&Scalar::Util::reftype($_[0]) eq 'HASH' ? :
|
|
142
|
0 |
58 |
unless length $file
|