Branch Coverage
blib/lib/WWW/Shorten/Shorl.pm
Criterion
Covered
Total
%
branch
10
14
71.4
line
true
false
branch
54
1
2
unless
my
$url
=
shift
@_
60
0
2
unless
$resp
->
is_success
61
0
0
if
(
$resp
->
content
=~
m[
73
1
1
wantarray
?
:
90
1
2
unless
my
$shorl_url
=
shift
@_
94
1
1
unless
$shorl_url
=~
m[^http://]i
99
0
2
if
$resp
->
is_error