Branch Coverage

blib/lib/Net/DRI/Data/LanguageTag.pm
Criterion Covered Total %
branch 4 50 10.0


line true false branch
25 1 2 if $swap
26 1 3 $swap ? :
72 0 0 unless defined $tag and length $tag
84 0 0 unless $tag =~ /^$TAG$/
88 0 0 exists $+{'privateuse'} ? :
0 0 exists $+{'langtag'} ? :
89 0 0 if ($build{'type'} eq 'langtag') { }
101 0 0 if (exists $seen{$variant})
115 0 0 if (exists $seen{$extension})
123 0 0 length $_ == 1 ? :
0 0 if join('', map({length $_ == 1 ? 1 : 0;} @exts)) =~ /11/
129 0 0 unless lc $Net::DRI::Data::LanguageTag::a->[0] cmp lc $Net::DRI::Data::LanguageTag::b->[0]
160 0 0 if length $t > 8
164 0 0 if ($notfirst || $ti != 0 and length $tags[$ti - 1] > 1)
166 0 0 if (length $t == 2) { }
0 0 elsif (length $t == 4) { }
168 0 0 defined $up->{$_} ? :
173 0 0 defined $up->{$first} ? :
0 0 defined $lc->{$_} ? :
177 0 0 defined $lc->{$_} ? :
189 0 0 unless defined $ra
190 0 0 wantarray ? :
204 0 0 if wantarray
219 0 0 unless defined $tag
220 0 0 unless length $tag