| line |
true |
false |
branch |
|
25
|
0 |
0 |
unless ref $self |
|
30
|
0 |
0 |
if ($self->{'claimed_identity'} = delete $opts{'claimed_identity'}) |
|
32
|
0 |
0 |
unless ($self->{'id_uri'} = 'URI'->new($self->{'identity'})) |
|
41
|
0 |
0 |
if %opts |
|
57
|
0 |
0 |
if $self->{'semantic_info'} |
|
72
|
0 |
0 |
if ref $url |
|
73
|
0 |
0 |
unless $url |
|
108
|
0 |
0 |
if $self->{'signed_message'} |
|
119
|
0 |
0 |
if ($real_message->protocol_version == 1) { } |
|
139
|
0 |
0 |
if (@_) |
|
141
|
0 |
0 |
if @_ |
|
154
|
0 |
0 |
if (my $value = shift()) |
|
155
|
0 |
0 |
if @_ |
|
168
|
0 |
0 |
if (my $surl = shift()) |
|
169
|
0 |
0 |
if @_ |
|
177
|
0 |
0 |
$uri && _url_is_under($self->{'id_uri'}, $uri) ? : |
|
188
|
0 |
0 |
$uri ? : |
|
195
|
0 |
0 |
unless $url =~ m[^https?://([^/]+)(/.*)?$] |
|
201
|
0 |
0 |
if ($dev_mode) |
|
209
|
0 |
0 |
if (length $path <= 1) |
|
214
|
0 |
0 |
if ($path =~ m[^/~([^/]+)/?$] or $path =~ m[^/(?:users?|members?)/([^/]+)/?$]) |
|
219
|
0 |
0 |
if ($host =~ /^profile\.(.+)/i) |
|
221
|
0 |
0 |
if ($path =~ m[^/([^/]+)/?$]) |
|
234
|
0 |
0 |
if $err_ref |
|
238
|
0 |
0 |
ref $root ? : |
|
239
|
0 |
0 |
unless $ru->scheme =~ /^https?$/ |
|
240
|
0 |
0 |
ref $test ? : |
|
241
|
0 |
0 |
unless $tu->scheme =~ /^https?$/ |
|
242
|
0 |
0 |
unless $ru->scheme eq $tu->scheme |
|
243
|
0 |
0 |
unless $ru->port == $tu->port |
|
249
|
0 |
0 |
if ($ru_host =~ s/^\*\.//) |
|
252
|
0 |
0 |
unless ($ru_host eq $tu_host) |
|
253
|
0 |
0 |
if ($wildcard_host) { } |
|
254
|
0 |
0 |
unless $tu_host =~ /\.\Q$ru_host\E$/ |
|
264
|
0 |
0 |
unless $ru_path =~ m[/$] |
|
265
|
0 |
0 |
unless $tu_path =~ m[/$] |
|
266
|
0 |
0 |
unless $tu_path =~ /^\Q$ru_path\E/ |