| line |
true |
false |
branch |
|
25
|
0 |
0 |
unless grep {$attr eq $_;} @{_attrs();} |
|
26
|
0 |
0 |
unless @_ |
|
29
|
0 |
0 |
unless (defined $val) |
|
41
|
0 |
0 |
if $attrs |
|
52
|
0 |
0 |
unless $url and &blessed($url) and $url->isa('URI') |
|
55
|
0 |
0 |
unless $res |
|
56
|
0 |
0 |
unless ($res->is_success) |
|
62
|
0 |
0 |
unless ($content_type and $content_type =~ m[application/json]) |
|
66
|
0 |
0 |
unless $json |
|
73
|
0 |
0 |
if (@_ == 1 and ref $_[0]) { } |
|
|
0 |
0 |
elsif (@_ == 1 and not ref $_[0]) { } |
|
|
0 |
0 |
elsif (@_ % 2 == 0) { } |
|
75
|
0 |
0 |
if $@ |
|
95
|
0 |
0 |
if $config |
|
98
|
0 |
0 |
$^O eq 'MSWin32' ? : |
|
99
|
0 |
0 |
if $ENV{'YOURLS_TEST_CONFIG'} |
|
102
|
0 |
0 |
if ($path and $path->is_file) |
|
108
|
0 |
0 |
if $line =~ /^\s*[;#]/ |
|
110
|
0 |
0 |
unless $line and $line =~ /=/ |
|
115
|
0 |
0 |
unless $key and $val |
|
116
|
0 |
0 |
if $key eq 'user' |
|
117
|
0 |
0 |
if $key eq 'base' |
|
118
|
0 |
0 |
unless grep {$key eq $_;} @{$attrs;} |
|
129
|
0 |
0 |
unless defined $input and not ref $input and length $input |
|
138
|
0 |
0 |
if (@_ == 1 and ref $_[0]) { } |
|
|
0 |
0 |
elsif (@_ % 2 == 0) { } |
|
140
|
0 |
0 |
if $@ |
|
157
|
0 |
0 |
if $lc_key eq 'user' |
|
158
|
0 |
0 |
if $lc_key eq 'base' |
|
159
|
0 |
0 |
unless grep {$lc_key eq $_;} @{$attrs;} |
|
162
|
0 |
0 |
$href->{'server'} ? : |
|
169
|
0 |
0 |
unless my $server = $self->server |
|
173
|
0 |
0 |
unless $short_url |
|
181
|
0 |
0 |
if (my $sig = $self->signature) { } |
|
187
|
0 |
0 |
unless ($user and $pass) |
|
199
|
0 |
0 |
unless my $server = $self->server |
|
203
|
0 |
0 |
unless $short_url |
|
211
|
0 |
0 |
if (my $sig = $self->signature) { } |
|
217
|
0 |
0 |
unless ($user and $pass) |