Branch Coverage

blib/lib/OpenID/Lite/Util/XRI.pm
Criterion Covered Total %
branch 4 18 22.2


line true false branch
13 7 0 if ($identifier and length $identifier > 0)
19 4 3 if $identifier =~ m[^xri://] or any sub { $first eq $_; } , @XRI_AUTHORITIES
26 1 0 unless $xri =~ m[^xri\://]
55 0 0 if ($xri =~ m[^xri://])
63 0 0 if index($xri, 'xri://') == 0
67 0 0 if ($authority =~ /^(\([^\)]*\))/) { }
0 0 elsif ($authority =~ /^([\!\=\@\+\$\(])/) { }
81 0 0 unless $provider_id and $canonical_id
83 0 0 if $lastbang < 0