| line |
true |
false |
branch |
|
46
|
0 |
0 |
unless (defined $x) |
|
48
|
0 |
0 |
if (&Switch::case('Hessian::Type::Null')) |
|
49
|
0 |
0 |
if (&Switch::case('Hessian::Type::True')) |
|
50
|
0 |
0 |
if (&Switch::case('Hessian::Type::False')) |
|
52
|
0 |
0 |
if (&Switch::case('DateTime')) |
|
53
|
0 |
0 |
if (&Switch::case('Hessian::Type::Date')) |
|
55
|
0 |
0 |
if (&Switch::case('Hessian::Type::Integer')) |
|
56
|
0 |
0 |
if (&Switch::case('Hessian::Type::Long')) |
|
57
|
0 |
0 |
if (&Switch::case('Math::BigInt')) |
|
58
|
0 |
0 |
if (&Switch::case('Hessian::Type::Double')) |
|
60
|
0 |
0 |
if (&Switch::case('Hessian::Type::Binary')) |
|
61
|
0 |
0 |
if (&Switch::case('Hessian::Type::String')) |
|
62
|
0 |
0 |
if (&Switch::case('Unicode::String')) |
|
64
|
0 |
0 |
if (&Switch::case('Hessian::Type::List')) |
|
65
|
0 |
0 |
if (defined $idx) { } |
|
72
|
0 |
0 |
if (&Switch::case('Hessian::Type::Map')) |
|
73
|
0 |
0 |
if (defined $idx) { } |
|
80
|
0 |
0 |
if (&Switch::case('Hessian::Type::Object')) |
|
81
|
0 |
0 |
if (defined $idx) { } |
|
90
|
0 |
0 |
if (&Switch::case('REF')) |
|
92
|
0 |
0 |
if (&Switch::case('')) |
|
94
|
0 |
0 |
if (&Switch::case(qr/^[\+\-]?(0x)?\d+$/)) |
|
95
|
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) { } |
|
107
|
0 |
0 |
if (&Switch::case(qr/^[\+\-]?\d*(\d+\.|\.\d+)\d*$/)) |
|
108
|
0 |
0 |
if (&Switch::case(qr/\D/)) |
|
120
|
0 |
0 |
if $$refs[$i] == $r |
|
126
|
0 |
0 |
defined $$x{'type'} ? : |
|
127
|
0 |
0 |
ref $$x{'type'} ? : |
|
|
0 |
0 |
if defined $$x{'type'} |
|
128
|
0 |
0 |
'HASH' eq ref $$x{'data'} ? : |
|
134
|
0 |
0 |
if ($$x{'type'} and defined $$x{'length'}) { } |
|
|
0 |
0 |
elsif (defined $$x{'length'}) { } |
|
|
0 |
0 |
elsif ($$x{'type'}) { } |
|
136
|
0 |
0 |
ref $$x{'type'} ? : |
|
147
|
0 |
0 |
unless defined $$x{'length'} |
|
152
|
0 |
0 |
if (length $str > 32767) { } |
|
153
|
0 |
0 |
$utf8 ? : |
|
158
|
0 |
0 |
$utf8 ? : |
|
171
|
0 |
0 |
unless defined $h_flag_override |
|
176
|
0 |
0 |
$h_flag_override ? : |
|
|
0 |
0 |
if (&Switch::case('N')) |
|
177
|
0 |
0 |
$h_flag_override ? : |
|
|
0 |
0 |
if (&Switch::case('T')) |
|
178
|
0 |
0 |
$h_flag_override ? : |
|
|
0 |
0 |
if (&Switch::case('F')) |
|
180
|
0 |
0 |
if (&Switch::case(qr/[I\x80-\xd7]/)) |
|
183
|
0 |
0 |
if (&Switch::case('I')) |
|
184
|
0 |
0 |
if (&Switch::case(qr/[\x80-\xbf]/)) |
|
185
|
0 |
0 |
if (&Switch::case(qr/[\xc0-\xcf]/)) |
|
186
|
0 |
0 |
if (&Switch::case(qr/[\xd0-\xd7]/)) |
|
190
|
0 |
0 |
$h_flag_override ? : |
|
193
|
0 |
0 |
if (&Switch::case(qr/[LY\x38-\x3f\xd8-\xff]/)) |
|
196
|
0 |
0 |
if (&Switch::case('L')) |
|
197
|
0 |
0 |
if (&Switch::case('Y')) |
|
198
|
0 |
0 |
if (&Switch::case(qr/[\xd8-\xef]/)) |
|
199
|
0 |
0 |
if (&Switch::case(qr/[\xf0-\xff]/)) |
|
200
|
0 |
0 |
if (&Switch::case(qr/[\x38-\x3f]/)) |
|
203
|
0 |
0 |
$h_flag_override ? : |
|
206
|
0 |
0 |
if (&Switch::case(qr/[D\[\\\]\^_]/)) |
|
209
|
0 |
0 |
if (&Switch::case('D')) |
|
210
|
0 |
0 |
if (&Switch::case('[')) |
|
211
|
0 |
0 |
if (&Switch::case('\\')) |
|
212
|
0 |
0 |
if (&Switch::case(']')) |
|
213
|
0 |
0 |
if (&Switch::case('^')) |
|
214
|
0 |
0 |
if (&Switch::case('_')) |
|
216
|
0 |
0 |
$h_flag_override ? : |
|
219
|
0 |
0 |
if (&Switch::case('J')) |
|
220
|
0 |
0 |
$h_flag_override ? : |
|
225
|
0 |
0 |
if (&Switch::case('K')) |
|
227
|
0 |
0 |
$h_flag_override ? : |
|
233
|
0 |
0 |
if (&Switch::case(qr/[RS\x00-\x1f\x30-\x33]/)) |
|
234
|
0 |
0 |
$h_flag_override ? : |
|
239
|
0 |
0 |
if (&Switch::case(qr/[AB\x20-\x2f\x34-\x37]/)) |
|
240
|
0 |
0 |
$h_flag_override ? : |
|
245
|
0 |
0 |
if (&Switch::case(qr/[U-X\x70-\x7f]/)) |
|
246
|
0 |
0 |
$h_flag_override ? : |
|
251
|
0 |
0 |
if (&Switch::case(qr/[MH]/)) |
|
253
|
0 |
0 |
$h_flag_override ? : |
|
258
|
0 |
0 |
if (&Switch::case('C')) |
|
263
|
0 |
0 |
if (&Switch::case(qr/[O\x60a-o]/)) |
|
265
|
0 |
0 |
$h_flag_override ? : |
|
271
|
0 |
0 |
if (&Switch::case('Q')) |
|
280
|
0 |
0 |
if ($x eq 'O') { } |
|
282
|
0 |
0 |
if $idx > $#$c_refs |
|
296
|
0 |
0 |
if ($x eq 'M') |
|
298
|
0 |
0 |
if (defined $$v{'type'} and &Scalar::Util::looks_like_number($$v{'type'})) { } |
|
|
0 |
0 |
elsif (0 < length $$v{'type'}) { } |
|
312
|
0 |
0 |
if $x =~ /[MUV\x70-\x77]/ |
|
313
|
0 |
0 |
if (defined $$v{'type'} and 'Hessian::Type::Integer' eq ref $$v{'type'}) { } |
|
|
0 |
0 |
elsif (defined $$v{'type'} and 'Hessian::Type::String' eq ref $$v{'type'}) { } |
|
319
|
0 |
0 |
if $x =~ /[VX]/ |
|
320
|
0 |
0 |
if $x =~ /[\x70-\x77]/ |
|
321
|
0 |
0 |
if $x =~ /[\x78-\x7f]/ |
|
323
|
0 |
0 |
if (defined $$v{'length'} and $$v{'length'} > 0) { } |
|
|
0 |
0 |
elsif (not defined $$v{'length'}) { } |
|
337
|
0 |
0 |
if (&Switch::case(qr/[AB]/)) |
|
338
|
0 |
0 |
if (&Switch::case(qr/[\x20-\x2f]/)) |
|
339
|
0 |
0 |
if (&Switch::case(qr/[\x34-\x37]/)) |
|
343
|
0 |
0 |
if $m eq 'A' |
|
351
|
0 |
0 |
if (&Switch::case(qr/[RS]/)) |
|
352
|
0 |
0 |
if (&Switch::case(qr/[\x00-\x1f]/)) |
|
353
|
0 |
0 |
if (&Switch::case(qr/[\x30-\x33]/)) |
|
357
|
0 |
0 |
if $m eq 'R' |