Branch Coverage

blib/lib/Data/ENAML.pm
Criterion Covered Total %
branch 25 52 48.0


line true false branch
35 2 0 if (@_ == 1 and UNIVERSAL::isa($_[0], 'HASH')) { }
0 0 elsif (@_ == 2) { }
38 0 2 if (scalar @keys != 1)
47 0 2 unless ($pair[0] =~ /[a-z_-]{1,32}/i)
55 6 2 unless (ref $datum)
56 0 6 if $datum =~ /^\d+$/
57 6 0 unless ($datum =~ /[\000-\037"%\x7F\xFF]/)
65 0 0 length $opt1 <= length $opt2 ? :
67 0 2 if ++$$history{$datum} > 1
68 2 0 if (UNIVERSAL::isa($datum, 'HASH')) { }
0 0 elsif (UNIVERSAL::isa($datum, 'ARRAY')) { }
72 0 8 unless ($key =~ /[a-z_-]{1,32}/i)
75 6 2 if ++$count > 1
76 2 6 if ($val eq "\000" or not defined $val)
88 0 0 if ++$count > 1
101 0 1 if $rem
110 2 5 if (s/^\}//)
113 0 5 unless (s/^([A-Za-z-_]{1,32})(:?)\s*//)
117 1 4 unless ($2)
131 0 0 if (s/^\]//)
143 1 3 if (s/^\{//)
147 0 3 if (s/^\[//)
151 0 3 if (s/^(\d+)(?![^}\]\t ])//)
154 3 0 if (s/^\"(.*?)\"//)
159 0 0 if (s/^%([0-9A-F]+)//i)
161 0 0 if length($hex) % 2