Branch Coverage

blib/lib/WWW/Link_Controller/URL.pm
Criterion Covered Total %
branch 26 54 48.1


line true false branch
57 0 1 unless $no_warn
1 16 if ($url =~ /$control/)
61 0 2 unless $no_warn
2 14 if (($ex) = $url =~ /($exclude)/)
79 13 1 if (defined $scheme)
81 0 3 unless $no_warn
3 10 unless ($scheme =~ /$scheme_re/)
104 1 1 unless (defined $ret)
106 0 1 unless $no_warn
109 0 1 unless verify_url $ret
130 2 0 unless defined $fragment
134 0 0 unless $no_warn
0 0 if ($fragment =~ /$control/)
138 0 0 unless $no_warn
0 0 if (($ex) = $fragment =~ /($exclude)/)
147 0 2 if ($main::verbose & 16)
148 0 0 if defined $fragment
150 0 0 unless defined $fragment
158 0 2 unless defined $link
162 0 2 unless (verify_url $url)
163 0 0 unless $no_warn
167 2 0 unless (verify_fragment $fragment)
168 0 2 if defined $fragment
173 0 2 if ($url =~ m[^(?:ftp|gopher|http|https|ldap|rsync|telnet):(?:[^/]|.[^/])])
181 1 1 if (URI::eq($urlo, $aurlo)) { }
188 0 2 if ($ret_url =~ m[^(?:ftp|gopher|http|https|ldap|rsync|telnet):(?:[^/]|.[^/])])
193 0 2 if $main::verbose & 16 and defined $url