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) |