Branch Coverage

blib/lib/WWW/Shorten/Naver.pm
Criterion Covered Total %
branch 0 46 0.0


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)