| line |
true |
false |
branch |
|
33
|
0 |
3 |
unless defined $else |
|
34
|
0 |
3 |
unless ref $else eq 'ARRAY' |
|
38
|
0 |
11 |
if ($exists) { } |
|
39
|
0 |
0 |
unless empty($$hash{$key}) |
|
|
0 |
0 |
if ($exists eq 'empty') { } |
|
40
|
0 |
0 |
if exists $$hash{$key} |
|
42
|
6 |
5 |
if $$hash{$key} |
|
45
|
0 |
3 |
unless @found |
|
48
|
2 |
1 |
if (@found and $found[0] eq $key0) |
|
54
|
0 |
3 |
if ($exclusive) |
|
55
|
0 |
0 |
if ($has and @found) |
|
59
|
0 |
0 |
if (@found > 1) |
|
64
|
2 |
1 |
if ($has) { } |
|
65
|
1 |
1 |
if ($delete) |
|
72
|
0 |
1 |
if ($delete) |
|
82
|
0 |
4 |
if empty $given |
|
84
|
2 |
2 |
unless ($given =~ /\./) |
|
87
|
3 |
1 |
unless ($given =~ m[^[A-Za-z0-9]+://]) |
|
100
|
0 |
1 |
unless empty $url |
|
101
|
0 |
1 |
unless empty $blog |
|
111
|
0 |
44 |
if exists $$given{$_} |
|
121
|
0 |
1 |
if 1 < grep({not empty($$given{$_});} 'name', 'blog', 'url') |
|
152
|
3 |
1 |
unless @_ |
|
161
|
0 |
1 |
unless $self->url |
|
167
|
1 |
1 |
if (@_) { } |
|
189
|
2 |
0 |
if $self->secure |
|
191
|
1 |
1 |
if ($options{'url'}) |
|
196
|
0 |
2 |
unless $options{'passthrough'} |
|
198
|
1 |
1 |
if $options{'authenticate'} |
|
230
|
0 |
0 |
unless $arguments{'post-id'} |
|
270
|
0 |
0 |
if $arguments{'all'} or $dispatch->query->{'state'} |
|
284
|
0 |
1 |
if $arguments{'all'} or $dispatch->query->{'state'} |