| line |
true |
false |
branch |
|
13
|
0 |
36 |
unless $self->doesrole("Chip") |
|
14
|
0 |
36 |
if (ref $var eq "HASH" and $var->{'type'} eq "string") |
|
24
|
2 |
34 |
if ($val >= bless( {"sign" => "+","value" => bless( [2], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) ** $bits) |
|
30
|
8 |
28 |
if ($val == {sign => '+', value => ['0']}) { } |
|
38
|
28 |
0 |
if $valbyte > bless( {"sign" => "+","value" => bless( [0], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) |
|
39
|
0 |
28 |
if $valbyte == bless( {"sign" => "+","value" => bless( [0], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) |
|
46
|
0 |
0 |
if $valbyte > bless( {"sign" => "+","value" => bless( [0], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) |
|
47
|
0 |
0 |
if $valbyte == bless( {"sign" => "+","value" => bless( [0], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) |
|
140
|
0 |
52 |
unless $self->doesrole("Operators") |
|
142
|
36 |
16 |
if $var2 =~ /$literal/ |
|
144
|
2 |
14 |
if (ref $var1 eq "HASH") |
|
145
|
2 |
0 |
if ($var1->{'type'} eq "string") |
|
146
|
2 |
0 |
if (ref $var2 eq 'HASH' and exists $var2->{'string'}) { } |
|
156
|
1 |
1 |
if ($var2->{'empty'}) { } |
|
164
|
2 |
0 |
wantarray ? : |
|
177
|
14 |
0 |
if ($b1 == $b2) { } |
|
|
0 |
0 |
elsif ($b1 > $b2) { } |
|
|
0 |
0 |
elsif ($b1 < $b2) { } |
|
208
|
0 |
14 |
if $extra{'RESULT'} |
|
214
|
0 |
80 |
unless $self->doesrole("Operators") |
|
215
|
0 |
80 |
unless $var |
|
222
|
0 |
2 |
unless $self->doesroles("Operators", "Chip") |
|
223
|
0 |
2 |
unless (exists $self->registers->{'STATUS'}) |
|
243
|
0 |
4 |
unless $self->doesroles("Operators", "Chip") |
|
244
|
0 |
4 |
unless (exists $self->registers->{'STATUS'}) |
|
264
|
0 |
4 |
unless $self->doesroles("Operators", "Chip") |
|
265
|
0 |
4 |
unless (exists $self->registers->{'STATUS'}) |
|
271
|
4 |
0 |
if (not $var =~ /$literal/ and $bits =~ /$literal/) { } |
|
|
0 |
0 |
elsif ($var =~ /$literal/ and $bits =~ /$literal/) { } |
|
274
|
4 |
0 |
if ($bits == {sign => '+', value => ['1']}) { } |
|
|
0 |
0 |
elsif ($bits == {sign => '+', value => ['0']}) { } |
|
295
|
2 |
2 |
if $extra{'RESULT'} |
|
301
|
0 |
7 |
unless $self->doesroles("Operators", "Chip") |
|
302
|
0 |
7 |
unless (exists $self->registers->{'STATUS'}) |
|
308
|
7 |
0 |
if (not $var =~ /$literal/ and $bits =~ /$literal/) { } |
|
|
0 |
0 |
elsif ($var =~ /$literal/ and $bits =~ /$literal/) { } |
|
311
|
7 |
0 |
if ($bits == {sign => '+', value => ['1']}) { } |
|
|
0 |
0 |
elsif ($bits == {sign => '+', value => ['0']}) { } |
|
332
|
2 |
5 |
if $extra{'RESULT'} |
|
338
|
0 |
0 |
unless $self->doesroles("Operators", "Chip") |
|
339
|
0 |
0 |
unless (exists $self->registers->{'STATUS'}) |
|
357
|
0 |
0 |
unless $self->doesroles("Operators", "Chip") |
|
358
|
0 |
0 |
unless (exists $self->registers->{'STATUS'}) |
|
377
|
0 |
7 |
unless $self->doesroles("Operators", "Chip") |
|
378
|
0 |
7 |
unless (exists $self->registers->{'STATUS'}) |
|
383
|
7 |
0 |
if (@_) |
|
385
|
7 |
0 |
if $extra{'RESULT'} |
|
408
|
0 |
0 |
if (@_) |
|
410
|
0 |
0 |
if $extra{'RESULT'} |
|
422
|
0 |
2 |
unless $self->doesroles("Operators", "Chip") |
|
423
|
0 |
2 |
unless (exists $self->registers->{'STATUS'}) |
|
431
|
0 |
2 |
if $val == bless( {"sign" => "+","value" => bless( [0], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) |
|
433
|
2 |
0 |
if $val < bless( {"sign" => "+","value" => bless( [256], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) |
|
434
|
0 |
2 |
if $val < bless( {"sign" => "+","value" => bless( [65536], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) and $val >= bless( {"sign" => "+","value" => bless( [256], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) |
|
435
|
0 |
2 |
if $val < bless( {"sign" => "+","value" => bless( [294967296,4], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) and $val >= bless( {"sign" => "+","value" => bless( [65536], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) |
|
436
|
0 |
2 |
if $val < bless( {"sign" => "+","value" => bless( [709551616,446744073,18], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) and $val >= bless( {"sign" => "+","value" => bless( [294967296,4], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) |
|
437
|
0 |
2 |
if ($b1 > $b2) { } |
|
|
0 |
2 |
elsif ($b1 < $b2) { } |
|
444
|
2 |
0 |
if $valbyte > bless( {"sign" => "+","value" => bless( [0], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) |
|
445
|
0 |
2 |
if $valbyte == bless( {"sign" => "+","value" => bless( [0], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) |
|
454
|
0 |
0 |
if $valbyte > bless( {"sign" => "+","value" => bless( [0], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) |
|
457
|
0 |
2 |
if $extra{'RESULT'} |
|
465
|
2 |
0 |
if $var2 =~ /$literal/ |
|
469
|
0 |
0 |
if $extra{'RESULT'} |
|
483
|
2 |
0 |
wantarray ? : |
|
490
|
2 |
0 |
wantarray ? : |
|
497
|
2 |
0 |
wantarray ? : |
|
504
|
2 |
0 |
wantarray ? : |
|
511
|
2 |
0 |
wantarray ? : |
|
518
|
3 |
0 |
wantarray ? : |
|
525
|
2 |
0 |
wantarray ? : |
|
532
|
2 |
0 |
wantarray ? : |
|
539
|
5 |
0 |
wantarray ? : |
|
544
|
0 |
6 |
unless $self->doesroles("Operators", "Chip") |
|
545
|
0 |
6 |
unless (exists $self->registers->{'STATUS'}) |
|
567
|
0 |
2 |
unless $self->doesroles("Operators", "Chip") |
|
568
|
0 |
2 |
unless (exists $self->registers->{'STATUS'}) |
|
574
|
0 |
2 |
if $b1 > bless( {"sign" => "+","value" => bless( [1], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) |
|
590
|
0 |
16 |
unless $self->doesrole("Chip") |
|
595
|
12 |
4 |
if (not $var1 =~ /$literal/ || $var2 =~ /$literal/) { } |
|
|
0 |
4 |
elsif ($var1 =~ /$literal/ and not $var2 =~ /$literal/) { } |
|
|
4 |
0 |
elsif (not $var1 =~ /$literal/ and $var2 =~ /$literal/) { } |
|
638
|
16 |
0 |
if $extra{'RESULT'} |
|
644
|
0 |
8 |
unless $self->doesrole("Chip") |
|
649
|
8 |
0 |
if (not $var1 =~ /$literal/ || $var2 =~ /$literal/) { } |
|
|
0 |
0 |
elsif ($var1 =~ /$literal/ and not $var2 =~ /$literal/) { } |
|
|
0 |
0 |
elsif (not $var1 =~ /$literal/ and $var2 =~ /$literal/) { } |
|
692
|
6 |
2 |
if $extra{'RESULT'} |
|
766
|
8 |
4 |
if (not $var1 =~ /$literal/ || $var2 =~ /$literal/) { } |
|
|
0 |
4 |
elsif ($var1 =~ /$literal/ and not $var2 =~ /$literal/) { } |
|
|
4 |
0 |
elsif (not $var1 =~ /$literal/ and $var2 =~ /$literal/) { } |
|
810
|
10 |
2 |
if $extra{'RESULT'} |
|
811
|
12 |
0 |
wantarray ? : |
|
930
|
6 |
2 |
if (not $var1 =~ /$literal/ || $var2 =~ /$literal/) { } |
|
|
0 |
2 |
elsif ($var1 =~ /$literal/ and not $var2 =~ /$literal/) { } |
|
|
2 |
0 |
elsif (not $var1 =~ /$literal/ and $var2 =~ /$literal/) { } |
|
974
|
6 |
2 |
if $extra{'RESULT'} |
|
975
|
8 |
0 |
wantarray ? : |
|
984
|
6 |
0 |
if (not $var1 =~ /$literal/ || $var2 =~ /$literal/) { } |
|
|
0 |
0 |
elsif ($var1 =~ /$literal/ and not $var2 =~ /$literal/) { } |
|
|
0 |
0 |
elsif (not $var1 =~ /$literal/ and $var2 =~ /$literal/) { } |
|
1028
|
4 |
2 |
if $extra{'RESULT'} |
|
1029
|
6 |
0 |
wantarray ? : |
|
1036
|
0 |
2 |
if $extra{'RESULT'} |
|
1037
|
0 |
2 |
if (not $var1 =~ /$literal/ || $var2 =~ /$literal/) { } |
|
|
2 |
0 |
elsif (not $var1 =~ /$literal/ and $var2 =~ /$literal/) { } |
|
|
0 |
0 |
elsif ($var1 =~ /$literal/ and not $var2 =~ /$literal/) { } |
|
1079
|
0 |
3 |
if $extra{'RESULT'} |
|
1080
|
0 |
3 |
if (not $var1 =~ /$literal/ || $var2 =~ /$literal/) { } |
|
|
3 |
0 |
elsif (not $var1 =~ /$literal/ and $var2 =~ /$literal/) { } |
|
|
0 |
0 |
elsif ($var1 =~ /$literal/ and not $var2 =~ /$literal/) { } |
|
1122
|
0 |
2 |
if $extra{'RESULT'} |
|
1123
|
0 |
2 |
if (not $var1 =~ /$literal/ || $var2 =~ /$literal/) { } |
|
|
2 |
0 |
elsif (not $var1 =~ /$literal/ and $var2 =~ /$literal/) { } |
|
|
0 |
0 |
elsif ($var1 =~ /$literal/ and not $var2 =~ /$literal/) { } |
|
1166
|
3 |
11 |
if (defined $extra{'RESULT'}) { } |
|
1167
|
2 |
9 |
$extra{'SWAP'} ? : |
|
1168
|
2 |
9 |
$extra{'SWAP'} ? : |
|
1180
|
2 |
1 |
$extra{'SWAP'} ? : |
|
1182
|
2 |
1 |
$extra{'SWAP'} ? : |
|
1201
|
2 |
12 |
wantarray ? : |
|
1206
|
0 |
0 |
if (defined $extra{'RESULT'}) { } |
|
1210
|
0 |
0 |
if ($res) { } |
|
1211
|
0 |
0 |
$extra{'SWAP'} ? : |
|
1213
|
0 |
0 |
$extra{'SWAP'} ? : |
|
1219
|
0 |
0 |
if ($res) { } |
|
1220
|
0 |
0 |
$extra{'SWAP'} ? : |
|
1222
|
0 |
0 |
$extra{'SWAP'} ? : |
|
1230
|
0 |
10 |
unless $self->doesroles("Operators", "Chip") |
|
1231
|
0 |
10 |
unless (exists $self->registers->{'STATUS'}) |
|
1235
|
4 |
6 |
$extra{'SWAP'} ? : |
|
1238
|
0 |
10 |
if (not $lhs =~ /$literal/ || $rhs =~ /$literal/) { } |
|
|
0 |
10 |
elsif (not $rhs =~ /$literal/ and $lhs =~ /$literal/) { } |
|
|
10 |
0 |
elsif ($rhs =~ /$literal/ and not $lhs =~ /$literal/) { } |
|
1273
|
0 |
0 |
$lhs == $rhs ? : |
|
1280
|
0 |
1 |
unless $self->doesroles("Operators", "Chip") |
|
1281
|
0 |
1 |
unless (exists $self->registers->{'STATUS'}) |
|
1287
|
0 |
1 |
if (not $lhs =~ /$literal/ || $rhs =~ /$literal/) { } |
|
|
1 |
0 |
elsif (not $rhs =~ /$literal/ and $lhs =~ /$literal/) { } |
|
|
0 |
0 |
elsif ($rhs =~ /$literal/ and not $lhs =~ /$literal/) { } |
|
1325
|
0 |
0 |
$lhs < $rhs ? : |
|
1332
|
0 |
1 |
unless $self->doesroles("Operators", "Chip") |
|
1333
|
0 |
1 |
unless (exists $self->registers->{'STATUS'}) |
|
1339
|
0 |
1 |
if (not $lhs =~ /$literal/ || $rhs =~ /$literal/) { } |
|
|
1 |
0 |
elsif (not $rhs =~ /$literal/ and $lhs =~ /$literal/) { } |
|
|
0 |
0 |
elsif ($rhs =~ /$literal/ and not $lhs =~ /$literal/) { } |
|
1377
|
0 |
0 |
$lhs >= $rhs ? : |
|
1401
|
0 |
1 |
unless $self->doesroles("Operators", "Chip") |
|
1402
|
0 |
1 |
unless (exists $self->registers->{'STATUS'}) |
|
1408
|
1 |
0 |
if (not $lhs =~ /$literal/ || $rhs =~ /$literal/) { } |
|
|
0 |
0 |
elsif (not $rhs =~ /$literal/ and $lhs =~ /$literal/) { } |
|
|
0 |
0 |
elsif ($rhs =~ /$literal/ and not $lhs =~ /$literal/) { } |
|
1454
|
0 |
0 |
$lhs && $rhs ? : |
|
1461
|
0 |
1 |
unless $self->doesroles("Operators", "Chip") |
|
1462
|
0 |
1 |
unless (exists $self->registers->{'STATUS'}) |
|
1468
|
1 |
0 |
if (not $lhs =~ /$literal/ || $rhs =~ /$literal/) { } |
|
|
0 |
0 |
elsif (not $rhs =~ /$literal/ and $lhs =~ /$literal/) { } |
|
|
0 |
0 |
elsif ($rhs =~ /$literal/ and not $lhs =~ /$literal/) { } |
|
1514
|
0 |
0 |
$lhs || $rhs ? : |
|
1600
|
2 |
0 |
if (not $var1 =~ /$literal/) { } |
|
|
0 |
0 |
elsif ($var1 =~ /$literal/) { } |
|
1623
|
2 |
0 |
if $extra{'RESULT'} |
|
1624
|
2 |
0 |
wantarray ? : |
|
1633
|
2 |
0 |
if ref $str eq "HASH" |
|
1635
|
2 |
0 |
if ref $str eq "HASH" |
|
1637
|
1 |
1 |
if ($str->{'empty'}) { } |
|
1659
|
2 |
0 |
wantarray ? : |
|
1666
|
0 |
0 |
if scalar @$arr |
|
1667
|
0 |
0 |
unless $arrstr |
|
1678
|
0 |
1 |
unless $self->doesrole("Chip") |
|
1679
|
0 |
1 |
unless (exists $self->registers->{'PCL'}) |
|
1685
|
1 |
0 |
if (scalar @$table) { } |
|
1696
|
1 |
0 |
wantarray ? : |
|
1701
|
0 |
1 |
unless defined $extra{'RESULT'} |
|
1704
|
1 |
0 |
if $sz |
|
1707
|
1 |
0 |
if $sz |
|
1728
|
0 |
31 |
unless defined $tables |
|
1729
|
0 |
31 |
unless $self->doesrole("Chip") |
|
1731
|
0 |
31 |
unless (ref $tables eq "ARRAY") |
|
1734
|
28 |
3 |
unless scalar @$tables |
|
1738
|
0 |
5 |
unless defined $name |
|
1739
|
0 |
5 |
unless exists $_->{'bytes'} |
|
1740
|
0 |
5 |
unless ref $_->{'bytes'} eq "ARRAY" |
|
1742
|
5 |
0 |
if defined $_->{'comment'} |
|
1795
|
1 |
0 |
if (ref $dvar eq 'HASH' and $dvar->{'type'} eq 'string') { } |
|
1806
|
1 |
0 |
wantarray ? : |
|
1812
|
0 |
1 |
if (ref $var2 eq 'HASH') { } |