Branch Coverage
blib/lib/WWW/Shorten/Linkz.pm
Criterion
Covered
Total
%
branch
0
12
0.0
line
true
false
branch
56
0
0
unless
my
$url
=
shift
@_
62
0
0
unless
$resp
->
is_success
63
0
0
if
(
$resp
->
content
=~
m[
83
0
0
unless
my
$code
=
shift
@_
86
0
0
unless
$code
=~
m[^http://]i
90
0
0
if
defined
$location