| line |
true |
false |
branch |
|
23
|
0 |
0 |
unless ref $self |
|
28
|
0 |
0 |
if ($self->{'claimed_identity'} = delete $opts{'claimed_identity'}) |
|
30
|
0 |
0 |
unless ($self->{'id_uri'} = 'URI'->new($self->{'identity'})) |
|
39
|
0 |
0 |
if %opts |
|
55
|
0 |
0 |
if $self->{'semantic_info'} |
|
70
|
0 |
0 |
if ref $url |
|
71
|
0 |
0 |
unless $url |
|
106
|
0 |
0 |
if $self->{'signed_message'} |
|
117
|
0 |
0 |
if ($real_message->protocol_version == 1) { } |
|
137
|
0 |
0 |
if (@_) |
|
139
|
0 |
0 |
if @_ |
|
152
|
0 |
0 |
if (my $value = shift()) |
|
153
|
0 |
0 |
if @_ |
|
166
|
0 |
0 |
if (my $surl = shift()) |
|
167
|
0 |
0 |
if @_ |
|
175
|
0 |
0 |
$uri && _url_is_under($self->{'id_uri'}, $uri) ? : |
|
186
|
0 |
0 |
$uri ? : |
|
193
|
0 |
0 |
unless $url =~ m[^https?://([^/]+)(/.*)?$] |
|
199
|
0 |
0 |
if ($dev_mode) |
|
207
|
0 |
0 |
if (length $path <= 1) |
|
212
|
0 |
0 |
if ($path =~ m[^/~([^/]+)/?$] or $path =~ m[^/(?:users?|members?)/([^/]+)/?$]) |
|
217
|
0 |
0 |
if ($host =~ /^profile\.(.+)/i) |
|
219
|
0 |
0 |
if ($path =~ m[^/([^/]+)/?$]) |
|
232
|
0 |
0 |
if $err_ref |
|
236
|
0 |
0 |
ref $root ? : |
|
237
|
0 |
0 |
unless $ru->scheme =~ /^https?$/ |
|
238
|
0 |
0 |
ref $test ? : |
|
239
|
0 |
0 |
unless $tu->scheme =~ /^https?$/ |
|
240
|
0 |
0 |
unless $ru->scheme eq $tu->scheme |
|
241
|
0 |
0 |
unless $ru->port == $tu->port |
|
247
|
0 |
0 |
if ($ru_host =~ s/^\*\.//) |
|
250
|
0 |
0 |
unless ($ru_host eq $tu_host) |
|
251
|
0 |
0 |
if ($wildcard_host) { } |
|
252
|
0 |
0 |
unless $tu_host =~ /\.\Q$ru_host\E$/ |
|
262
|
0 |
0 |
unless $ru_path =~ m[/$] |
|
263
|
0 |
0 |
unless $tu_path =~ m[/$] |
|
264
|
0 |
0 |
unless $tu_path =~ /^\Q$ru_path\E/ |