| line |
true |
false |
branch |
|
144
|
1 |
10 |
if $orig_url =~ /#/ |
|
145
|
2 |
9 |
if $new_url =~ /#/ |
|
147
|
1 |
10 |
if $orig_has_fragment || $new_has_fragment and $tree_mode |
|
150
|
0 |
0 |
defined $baseuri ? : |
|
|
0 |
10 |
if $verbose & 32 |
|
154
|
0 |
10 |
if defined $baseuri and not $baseuri =~ /^[a-z][a-z0-9]*:/ |
|
159
|
1 |
9 |
if (defined $baseuri) |
|
171
|
0 |
10 |
if $verbose & 16 |
|
175
|
1 |
9 |
if $baseuri |
|
195
|
8 |
2 |
unless ($orig_url =~ m[/$] and $tree_mode) |
|
205
|
2 |
6 |
if ($tree_mode) |
|
211
|
4 |
1 |
unless ($orig_has_fragment or $new_has_fragment) |
|
228
|
5 |
3 |
unless $orig_url =~ m[/$] |
|
248
|
1 |
9 |
if ($baseuri) |
|
252
|
0 |
10 |
if $verbose & 16 |
|
260
|
0 |
10 |
if $verbose & 32 |
|
263
|
0 |
10 |
if ($@) |
|
357
|
5 |
0 |
unless defined $keeporig |
|
359
|
0 |
5 |
if $verbose |
|
360
|
0 |
5 |
if ($verbose & 32) |
|
366
|
0 |
0 |
$keeporig ? : |
|
|
0 |
0 |
$relative ? : |
|
|
0 |
0 |
$file_to_url ? : |
|
|
0 |
0 |
$fakeit ? : |
|
373
|
0 |
5 |
if ($relative) { } |
|
374
|
0 |
0 |
unless $file_to_url |
|
383
|
0 |
6 |
if $verbose and 8 |
|
385
|
0 |
6 |
if ($relative) |
|
387
|
0 |
0 |
if $verbose |
|
393
|
0 |
6 |
unless defined $filename |
|
394
|
0 |
6 |
if -d $filename |
|
395
|
0 |
6 |
unless (-f $filename) |
|
397
|
0 |
6 |
if ($fakeit) { } |
|
399
|
0 |
0 |
unless -W $filename |
|
402
|
0 |
6 |
unless (open FIXFILE, "<$filename") |
|
403
|
0 |
6 |
unless open TMPFILE, ">$WWW::Link::Repair::Substitutor::tmpname" |
|
411
|
0 |
6 |
if $WWW::Link::Repair::verbose & 16 |
|
415
|
6 |
0 |
if $keeporig |