| line |
true |
false |
branch |
|
30
|
2 |
9 |
do {
$_[0] =~ /^\s*\{/
} ? : |
|
|
11 |
516 |
$_[0] ? : |
|
52
|
9 |
0 |
$_[0]->type eq 'root' ? : |
|
56
|
3 |
6 |
unless ($_[0]) |
|
59
|
0 |
3 |
unless my $sub = $self->at("Subject") |
|
66
|
6 |
0 |
if (my $np = $self->at("*:root > *")) |
|
84
|
11 |
0 |
$_[0]->type eq 'root' ? : |
|
88
|
3 |
8 |
unless ($_[0]) |
|
91
|
0 |
3 |
unless my $sub = $self->find("Alias") |
|
106
|
1 |
31 |
unless $_[0] |
|
111
|
20 |
11 |
unless scalar @_ >= 1 |
|
114
|
1 |
10 |
$_[0] && ref $_[0] && ref $_[0] eq 'HASH' ? : |
|
120
|
3 |
8 |
unless $_[0] |
|
132
|
0 |
36 |
unless $_[0] |
|
137
|
24 |
12 |
unless ($_[0]) |
|
144
|
8 |
4 |
if (ref $_[0] and ref $_[0] eq 'HASH') { } |
|
166
|
6 |
4 |
unless ($_[0]) |
|
172
|
0 |
6 |
unless $exp |
|
182
|
0 |
4 |
unless $new_time |
|
187
|
4 |
0 |
if (my $np = $self->at("Link, Alias, Property")) |
|
202
|
2 |
0 |
$_[0]->type eq 'root' ? : |
|
206
|
0 |
2 |
unless my $exp = $self->expires |
|
209
|
1 |
1 |
if $exp->epoch < time |
|
222
|
0 |
4 |
unless $xrd |
|
227
|
2 |
2 |
if (@_ == 1) { } |
|
230
|
1 |
1 |
if (ref $_[0] and ref $_[0] eq 'ARRAY') { } |
|
247
|
3 |
1 |
scalar @rel ? : |
|
264
|
0 |
2 |
unless eval {
do {
$jrd = decode_json($_[0])
}
} |
|
273
|
2 |
7 |
if ($key eq 'properties') { } |
|
|
2 |
5 |
elsif ($key eq 'links') { } |
|
|
3 |
2 |
elsif ($key eq 'subject' or $key eq 'expires') { } |
|
|
2 |
0 |
elsif ($key eq 'aliases') { } |
|
|
0 |
0 |
elsif ($key eq 'titles') { } |
|
306
|
2 |
1 |
if ($_ eq 'default') { } |
|
333
|
2 |
2 |
if $titles |
|
334
|
1 |
3 |
if $properties |
|
351
|
4 |
0 |
$self->type eq 'root' ? : |
|
359
|
5 |
3 |
if $obj |
|
368
|
3 |
1 |
if @aliases |
|
372
|
0 |
4 |
if keys %$titles |
|
376
|
4 |
0 |
if keys %$properties |
|
387
|
17 |
15 |
if (exists $link_att->{$_}) |
|
394
|
4 |
4 |
if keys %$link_titles |
|
398
|
2 |
6 |
if keys %$link_properties |
|
403
|
4 |
0 |
if @links |