Branch Coverage

blib/lib/Sort/ArbBiLex.pm
Criterion Covered Total %
branch 66 92 71.7


line true false branch
12 5 0 eval 'chr(256)' ? :
20 3 4 unless @_
21 0 4 if @_ % 2
25 0 4 unless defined $sym
26 0 4 unless length $sym
27 0 4 unless defined $spec
28 0 4 unless length $sym
29 4 0 unless $sym =~ /::/ or $sym =~ /'/
40 16 4 if $@
56 8 43 unless @_ == 1
61 16 2 if (ref $decl) { }
62 16 16 unless ref $decl eq 'ARRAY'
64 8 41 if $Sort::ArbBiLex::Debug > 1
69 0 74 unless ref $f eq 'ARRAY'
72 0 128 if ref $g
77 0 2 if $Sort::ArbBiLex::Debug > 1
79 2 0 if ($decl =~ /[\cm\cj\n]/) { }
82 0 0 if $Sort::ArbBiLex::Debug
90 0 2 if $Sort::ArbBiLex::Debug > 1
99 0 18 unless @decl
101 6 12 if @decl == 1
111 0 122 if $Sort::ArbBiLex::Debug
114 24 98 if @{$decl[$major];} > $max_family_length
118 0 140 if $Sort::ArbBiLex::Debug
119 0 140 if $seen{$glyph}++
123 22 118 if length $glyph > $max_glyph_length
132 0 18 if $max_glyph_length == 0
133 10 8 if $max_family_length == 1
139 14 4 if ($max_glyph_length == 1) { }
173 2 2 if (not $one_level_mode) { }
215 8 10 if (not $one_level_mode) { }
273 0 18 if $Sort::ArbBiLex::Debug
282 4 18 if $in > 255
288 0 280 if $in > 255
298 0 8 unless @_ and ref $_[0]
299 2 6 if $_[1] eq $_[2]
300 2 4 if $_[1] ne ($_[0]->($_[1], $_[2]))[0]
303 2 2 if $_[1] eq ($_[0]->($_[2], $_[1]))[0]
313 0 14 unless @_ and ref $_[0]
315 2 12 if $_[1] eq $_[2]
316 4 8 if $_[1] eq ($_[0]->($_[2], $_[1]))[0]
323 0 14 unless @_ and ref $_[0]
325 2 12 if $_[1] eq $_[2]
326 4 8 if $_[1] ne ($_[0]->($_[1], $_[2]))[0]
335 0 8 unless @_ and ref $_[0]
340 0 8 unless @_ and ref $_[0]