Branch Coverage

lib/WWW/Lengthen.pm
Criterion Covered Total %
branch 0 24 0.0


line true false branch
67 0 0 if (@_) { }
97 0 0 if $new_url eq $url or $seen{$new_url}++
108 0 0 unless $service
109 0 0 if (ref $service eq 'Regexp') { }
0 0 elsif (ref $service eq 'ARRAY') { }
110 0 0 unless $url =~ /$service/
112 0 0 unless $res->is_redirect
114 0 0 if defined $location
118 0 0 unless $url =~ /$regex/
119 0 0 unless $package =~ /^WWW::Shorten::/
122 0 0 unless ($@)
124 0 0 if defined $longer_url