Branch Coverage

blib/lib/Hessian/Tiny/ConvertorV1.pm
Criterion Covered Total %
branch 67 146 45.8


line true false branch
52 0 59 unless (defined $x)
54 1 58 if (&Switch::case('Hessian::Type::Null'))
55 1 57 if (&Switch::case('Hessian::Type::True'))
56 1 56 if (&Switch::case('Hessian::Type::False'))
57 3 53 if (&Switch::case('Hessian::Type::Date'))
58 3 0 'Math::BigInt' eq ref $$x{'data'} ? :
63 0 53 if (&Switch::case('DateTime'))
65 16 37 if (&Switch::case('Hessian::Type::Integer'))
66 0 37 if (&Switch::case('Hessian::Type::Long'))
67 18 19 if (&Switch::case('Math::BigInt'))
68 13 6 if (&Switch::case('Hessian::Type::Double'))
70 0 6 if (&Switch::case('Hessian::Type::Binary'))
71 6 0 if (&Switch::case('Hessian::Type::String'))
72 0 0 if (&Switch::case('Unicode::String'))
73 0 0 if (&Switch::case('Hessian::Type::XML'))
75 0 0 if (&Switch::case('Hessian::Type::List'))
76 0 0 if (defined $idx) { }
83 0 0 if (&Switch::case('ARRAY'))
84 0 0 if (defined $idx) { }
92 0 0 if (&Switch::case('Hessian::Type::Map'))
93 0 0 if (defined $idx) { }
100 0 0 if (&Switch::case('Hessian::Type::Fault'))
102 0 0 if (&Switch::case('HASH'))
103 0 0 if (defined $idx) { }
113 0 0 if (&Switch::case('REF'))
115 0 0 if (&Switch::case(''))
117 0 0 if (&Switch::case(qr/^[\+\-]?(0x)?\d+$/))
118 0 0 if ('Math::BigInt'->new('-0x80000000')->bcmp($bi) <= 0 and 'Math::BigInt'->new(' 0x7fffffff')->bcmp($bi) >= 0) { }
0 0 elsif ('Math::BigInt'->new('-0x8000000000000000')->bcmp($bi) <= 0 and 'Math::BigInt'->new(' 0x7fffffffffffffff')->bcmp($bi) >= 0) { }
130 0 0 if (&Switch::case(qr/^[\+\-]?\d*(\d+\.|\.\d+)\d*$/))
131 0 0 if (&Switch::case(qr/\D/))
142 0 0 if $$refs[$i] == $r
148 0 0 if (length $str > 32767) { }
161 0 6 if (length $str > 32767) { }
162 0 0 $utf8 ? :
167 6 0 $utf8 ? :
176 0 0 if ($$x{'type'})
180 0 0 if $$x{'length'}
189 0 0 if ($$x{'type'})
193 0 0 'HASH' eq ref $$x{'data'} ? :
205 183 4 unless defined $h_flg_override
209 3 2 $h_flg_override ? :
5 182 if (&Switch::case('N'))
210 60 1 $h_flg_override ? :
61 121 if (&Switch::case('T'))
211 1 1 $h_flg_override ? :
2 119 if (&Switch::case('F'))
213 32 87 if (&Switch::case('I'))
214 16 16 $h_flg_override ? :
219 36 51 if (&Switch::case('L'))
220 18 18 $h_flg_override ? :
225 26 25 if (&Switch::case('D'))
226 13 13 $h_flg_override ? :
231 6 19 if (&Switch::case('d'))
232 3 3 $h_flg_override ? :
237 18 1 if (&Switch::case(qr/([BbSsXx])/))
241 10 6 unless $h_flg_override
243 0 6 if (&Switch::case(qr/[Bb]/))
244 6 0 if (&Switch::case(qr/[Ss]/))
245 0 0 if (&Switch::case(qr/[Xx]/))
248 0 1 if (&Switch::case('V'))
249 0 0 $h_flg_override ? :
254 0 1 if (&Switch::case('M'))
256 0 0 $h_flg_override ? :
261 0 1 if (&Switch::case('R'))
262 0 1 if (&Switch::case('H'))
267 0 1 if (&Switch::case('r'))
272 1 0 if (&Switch::case('f'))
277 0 0 if (&Switch::case('z'))
287 2 16 if ($marker =~ /[bsx]/) { }
295 0 0 if ('t' eq &$rd(1)) { }
300 0 0 if ('l' eq &$rd(1)) { }
312 0 1 if ('t' eq &$rd(1)) { }