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