Branch Coverage
blib/lib/WWW/Shorten/Metamark.pm
Criterion
Covered
Total
%
branch
6
12
50.0
line
true
false
branch
47
2
1
unless
my
$url
=
shift
@_
52
0
1
unless
$resp
->
is_success
53
0
0
if
$resp
->
content
=~
/^ERROR:/
70
2
2
unless
my
$short_url
=
shift
@_
77
0
2
unless
$resp
->
is_success
78
0
0
if
$resp
->
content
=~
/^ERROR:/