| line |
true |
false |
branch |
|
120
|
0 |
6 |
unless my $path = 'File::Spec'->canonpath(shift()) |
|
123
|
0 |
6 |
unless defined $_[0] and not ref $_[0] |
|
124
|
0 |
6 |
unless my $URI = 'URI'->new(shift(), 'http') |
|
125
|
6 |
0 |
unless length $URI->path |
|
146
|
1 |
2 |
if _INSTANCE $_[0], 'URI::ToDisk' |
|
147
|
1 |
1 |
if @_ == 2 |
|
148
|
1 |
0 |
if _ARRAY($_[0]) |
|
219
|
0 |
1 |
unless my $new_uri = 'File::Spec::Unix'->catdir($$self{'URI'}->path, @args) |
|
220
|
0 |
1 |
unless my $new_path = 'File::Spec'->catdir($$self{'path'}, @args) |
|
245
|
0 |
1 |
unless my $uri = 'File::Spec::Unix'->catfile($$self{'URI'}->path, @args) |
|
246
|
0 |
1 |
unless my $fs = 'File::Spec'->catfile($$self{'path'}, @args) |
|
264
|
0 |
14 |
unless my $left = _INSTANCE(shift(), 'URI::ToDisk') |
|
265
|
4 |
10 |
unless my $right = _INSTANCE(shift(), 'URI::ToDisk') |
|
266
|
7 |
3 |
if $left->path eq $right->path |