| line |
true |
false |
branch |
|
25
|
0 |
143 |
if $whatever eq 'DESTROY' |
|
40
|
1 |
16 |
if ($opt{'sloppy'}) |
|
46
|
0 |
1 |
unless ($uristr =~ /^\w+:/) |
|
48
|
0 |
0 |
if ($uristr =~ m[^//]) { } |
|
59
|
17 |
0 |
unless $scheme |
|
66
|
0 |
17 |
unless $$self{'URI'}->scheme =~ /^http$|^https$|^ftp$/ |
|
71
|
0 |
17 |
unless $$self{'URI'}->host |
|
72
|
0 |
17 |
unless $self->_init |
|
138
|
0 |
0 |
if (%newnorm) |
|
160
|
0 |
0 |
if (%newlevel) |
|
196
|
0 |
0 |
if ($validlevel{'checklength'} and length $norm > Combine::Config::Get('maxUrlLength')) |
|
208
|
0 |
0 |
if ($validlevel{'checkallow'}) |
|
214
|
0 |
0 |
if ($hostind eq 'H' and $$self{'preferredhost'} =~ /$patt/) { } |
|
|
0 |
0 |
elsif ($hostind ne 'H' and $norm =~ /$patt/) { } |
|
223
|
0 |
0 |
unless ($allow) |
|
233
|
0 |
0 |
if ($validlevel{'checkexclude'}) |
|
240
|
0 |
0 |
if ($hostind eq 'H' and $$self{'preferredhost'} =~ /$patt/) { } |
|
|
0 |
0 |
elsif ($hostind ne 'H' and $norm =~ /$patt/) { } |
|
251
|
0 |
0 |
if ($exclude) |
|
261
|
0 |
0 |
if ($validlevel{'checkcgidup'}) |
|
275
|
0 |
56 |
if $$self{'normalised'} and not $opt{'force'} |
|
282
|
56 |
0 |
if $level{'fragment'} |
|
285
|
56 |
0 |
if $level{'prefhost'} |
|
297
|
56 |
0 |
if ($level{'canonical'}) |
|
307
|
0 |
56 |
if ($q and $level{'cgidup'} == 1) { } |
|
|
0 |
112 |
elsif ($q and $level{'cgidup'} == 2) { } |
|
316
|
0 |
56 |
if $newq and $newq ne $q |
|
318
|
56 |
0 |
if ($level{'colapsedots'}) |
|
322
|
6 |
50 |
if ($host =~ s/\.$//) |
|
324
|
4 |
52 |
if ($host =~ s/\s+//g) |
|
357
|
0 |
0 |
if ($opt{'cleansessions'} == 1) |
|
380
|
0 |
0 |
if defined $sessid{$k} |
|
381
|
0 |
0 |
if ($unique eq 'kvpairs') { } |
|
383
|
0 |
0 |
unless $seen{$item} |
|
386
|
0 |
0 |
unless $seen{$k} |