| line |
true |
false |
branch |
|
59
|
824 |
0 |
$Parse::Flash::Cookie::Config{'byteorder'} =~ qr/^1234/ ? : |
|
68
|
88 |
372 |
unless $writer |
|
77
|
331 |
40 |
if defined $value |
|
89
|
0 |
582 |
unless wantarray |
|
95
|
1 |
581 |
unless (exists $datatype{$type}) |
|
96
|
1 |
0 |
if $log->is_warn |
|
100
|
160 |
422 |
if ($type == 0) { } |
|
|
89 |
333 |
elsif ($type == 1) { } |
|
|
206 |
127 |
elsif ($type == 2) { } |
|
|
69 |
58 |
elsif ($type == 3) { } |
|
|
2 |
56 |
elsif ($type == 5) { } |
|
|
2 |
54 |
elsif ($type == 6) { } |
|
|
1 |
53 |
elsif ($type == 7) { } |
|
|
37 |
16 |
elsif ($type == 8) { } |
|
|
7 |
9 |
elsif ($type == 11) { } |
|
|
0 |
9 |
elsif ($type == 15) { } |
|
|
8 |
1 |
elsif ($type == 16) { } |
|
101
|
0 |
160 |
if $log->is_debug |
|
104
|
0 |
89 |
if $log->is_debug |
|
107
|
0 |
206 |
if $log->is_debug |
|
110
|
0 |
69 |
if $log->is_debug |
|
113
|
0 |
2 |
if $log->is_debug |
|
117
|
0 |
2 |
if $log->is_debug |
|
121
|
0 |
1 |
if $log->is_debug |
|
124
|
0 |
37 |
if $log->is_debug |
|
131
|
0 |
8 |
if $log->is_debug |
|
145
|
58 |
19 |
if $writer |
|
154
|
77 |
329 |
if (_readRaw(3) eq "\000\000\t") |
|
160
|
0 |
329 |
unless seek $FH, -3, 1 |
|
164
|
0 |
329 |
if $log->is_debug |
|
167
|
8 |
321 |
if ($customClass) |
|
170
|
0 |
8 |
if $log->is_debug |
|
179
|
0 |
329 |
if $log->is_debug |
|
184
|
58 |
19 |
if $writer |
|
196
|
0 |
37 |
if ($length == 0) |
|
201
|
35 |
2 |
if $writer |
|
211
|
0 |
116 |
unless (defined $name) |
|
219
|
0 |
116 |
if $log->is_debug |
|
225
|
35 |
2 |
if $writer |
|
228
|
37 |
0 |
if (_readRaw(3) eq "\000\000\t") |
|
232
|
0 |
0 |
if $log->is_error |
|
243
|
0 |
443 |
unless $len |
|
257
|
0 |
944 |
if $log->is_debug and not $len |
|
260
|
659 |
285 |
unless $len |
|
263
|
41 |
903 |
unless $len |
|
265
|
0 |
903 |
if $log->is_debug |
|
267
|
0 |
903 |
if ($log->is_debug) |
|
286
|
7 |
0 |
_is_little_endian() ? : |
|
296
|
660 |
0 |
_is_little_endian() ? : |
|
325
|
5 |
162 |
if ($buffer eq "\177\360\000\000\000\000\000\000") { } |
|
|
5 |
157 |
elsif ($buffer eq "\377\360\000\000\000\000\000\000") { } |
|
|
0 |
157 |
elsif ($buffer eq "\177\370\000\000\000\000\000\000") { } |
|
333
|
157 |
0 |
_is_little_endian() ? : |
|
348
|
5 |
84 |
unless ($value =~ qr/^[01]$/) |
|
350
|
5 |
0 |
$value ? : |
|
351
|
5 |
0 |
if $log->is_warn |
|
383
|
0 |
7 |
if $log->is_debug |
|
389
|
5 |
2 |
if $writer |
|
391
|
5 |
2 |
if $writer |
|
399
|
5 |
2 |
if $writer |
|
404
|
0 |
7 |
if $log->is_debug |
|
416
|
0 |
1 |
if $log->is_debug |
|
431
|
0 |
37 |
if $log->is_debug |
|
435
|
0 |
37 |
if (_readString(4) ne 'TCSO') |
|
436
|
0 |
0 |
if $log->is_error |
|
441
|
0 |
37 |
if $log->is_debug |
|
446
|
0 |
37 |
if $log->is_debug |
|
450
|
0 |
37 |
if $log->is_debug |
|
453
|
2 |
35 |
if ($version != 0) |
|
454
|
0 |
2 |
if $log->is_debug |
|
475
|
0 |
135 |
if ($trailer != 0) |
|
476
|
0 |
0 |
if $log->is_warn |
|
481
|
0 |
135 |
if $log->is_info |
|
484
|
77 |
58 |
if (wantarray) { } |
|
496
|
1 |
16 |
unless $file |
|
497
|
1 |
15 |
unless -f $file |
|
499
|
0 |
15 |
if $log->is_debug |
|
501
|
0 |
15 |
unless open $FH, "< $file" |
|
502
|
0 |
15 |
if $log->is_debug |
|
508
|
0 |
15 |
unless my $name = _getHeader() |
|
513
|
0 |
58 |
if $log->is_debug |
|
518
|
0 |
15 |
unless close $FH |
|
528
|
0 |
22 |
unless $file |
|
529
|
0 |
22 |
unless -f $file |
|
531
|
0 |
22 |
if $log->is_debug |
|
533
|
0 |
22 |
unless open $FH, "< $file" |
|
534
|
0 |
22 |
if $log->is_debug |
|
541
|
0 |
22 |
unless my $headername = _getHeader() |
|
552
|
0 |
79 |
if $log->is_debug |
|
556
|
0 |
20 |
unless close $FH |