| line |
true |
false |
branch |
|
72
|
7 |
5 |
if ${$_;} eq '-' |
|
145
|
0 |
16 |
unless ref $self |
|
148
|
16 |
0 |
if ($AUTOLOAD =~ /.*::(.*)/) |
|
150
|
0 |
16 |
if $element eq 'DESTROY' |
|
151
|
11 |
5 |
if (grep {$element eq $_;} 'url', 'ident', 'method', '_kvpairs', 'addr', 'fqdn', '_scheme', 'authority', 'host', '_port', 'path', 'query', 'fragment') { } |
|
|
1 |
4 |
elsif ($element eq 'path_query') { } |
|
|
1 |
3 |
elsif ($element eq 'authority_path_query') { } |
|
|
1 |
2 |
elsif ($element eq 'port') { } |
|
|
1 |
1 |
elsif ($element eq 'scheme') { } |
|
|
1 |
0 |
elsif ($element eq 'kvpairs') { } |
|
159
|
2 |
4 |
$self->query ? : |
|
169
|
2 |
2 |
if ($self->_port) { } |
|
|
2 |
0 |
elsif ($self->_scheme and defined $defaultports{$self->_scheme}) { } |
|
180
|
3 |
1 |
if ($self->_scheme) { } |
|
|
1 |
0 |
elsif ($self->_port and defined $defaultschemes{$self->_port}) { } |
|
191
|
1 |
2 |
unless $$self{'_kvpairs'} |
|
194
|
2 |
0 |
@_ ? : |