| line |
true |
false |
branch |
|
51
|
0 |
4 |
unless length $alphabet == 78 |
|
54
|
0 |
4 |
unless substr($alphabet, 52, 1) eq "\000" |
|
58
|
0 |
4 |
if grep {ord $_ > 255;} split(//u, $alphabet, 0) |
|
70
|
8 |
4 |
$i ? : |
|
73
|
4 |
308 |
if $i == 2 and $j == 0 |
|
86
|
0 |
4 |
unless (defined $arg) |
|
88
|
1 |
3 |
unless (ref $arg) |
|
94
|
0 |
0 |
unless $$guts{'version'} == 5 or $$guts{'version'} == 7 or $$guts{'version'} == 8 |
|
114
|
0 |
4 |
if @{$$guts{'extra'};} > 97 |
|
117
|
0 |
78 |
if exists $$guts{'zscii'}{chr 155 + $_} |
|
125
|
0 |
78 |
if ord $u_char > 65535 |
|
135
|
0 |
474 |
if exists $$guts{'zscii_for'}{$unicode_char} |
|
159
|
1 |
3 |
if $$arg{'alphabet_is_unicode'} |
|
201
|
1 |
188 |
unless defined(my $zscii_char = $$self{'zscii_for'}{$char}) |
|
221
|
0 |
49 |
unless defined(my $unicode_char = $$self{'zscii'}{$char}) |
|
235
|
0 |
10 |
unless length $zscii |
|
240
|
92 |
11 |
if (defined(my $shortcut = $$self{'shortcut'}{$zscii_char})) |
|
247
|
0 |
11 |
if ($ord >= 1024) |
|
275
|
3 |
101 |
if ($ord == 0) |
|
277
|
7 |
94 |
if ($ord == 4) { } |
|
|
23 |
71 |
elsif ($ord == 5) { } |
|
280
|
12 |
59 |
if ($alphabet == 2 and $ord == 6) |
|
282
|
2 |
10 |
if (length $next_two != 2) |
|
283
|
1 |
1 |
if $$arg{'allow_early_termination'} |
|
295
|
59 |
0 |
if ($ord >= 6 and $ord <= 31) |
|
311
|
3 |
0 |
$$self{'version'} >= 5 ? : |
|
331
|
4 |
27 |
unless length $zchars |
|
343
|
0 |
5 |
if length($bytestring) % 2 |
|
350
|
0 |
37 |
if $terminate |