| line |
true |
false |
branch |
|
20
|
0 |
0 |
unless grep {$attr eq $_;} @{_attrs();} |
|
21
|
0 |
0 |
unless @_ |
|
24
|
0 |
0 |
unless (defined $val) |
|
36
|
0 |
0 |
if $attrs |
|
47
|
0 |
0 |
unless $url and &blessed($url) and $url->isa('URI') |
|
54
|
0 |
0 |
unless $res |
|
55
|
0 |
0 |
unless ($res->is_success) |
|
61
|
0 |
0 |
unless ($content_type and $content_type =~ m[application/json]) |
|
65
|
0 |
0 |
unless $json |
|
72
|
0 |
0 |
if (@_ == 1 and ref $_[0]) { } |
|
|
0 |
0 |
elsif (@_ == 1 and not ref $_[0]) { } |
|
|
0 |
0 |
elsif (@_ % 2 == 0) { } |
|
74
|
0 |
0 |
if $@ |
|
92
|
0 |
0 |
unless defined $input and not ref $input and length $input |
|
101
|
0 |
0 |
if (@_ == 1 and ref $_[0]) { } |
|
|
0 |
0 |
elsif (@_ % 2 == 0) { } |
|
103
|
0 |
0 |
if $@ |
|
128
|
0 |
0 |
if ($_[0] and &blessed($_[0]) and $_[0]->isa('WWW::Shorten::Naver')) |
|
131
|
0 |
0 |
unless my $url = shift() |
|
139
|
0 |
0 |
if ($_[0] and &blessed($_[0]) and $_[0]->isa('WWW::Shorten::Bitly')) |
|
142
|
0 |
0 |
unless my $url = shift() |
|
152
|
0 |
0 |
unless ($short_url) |
|
169
|
0 |
0 |
unless ($long_url) |