| line |
true |
false |
branch |
|
127
|
1 |
3076 |
unless $size |
|
128
|
1 |
3075 |
unless $int =~ /^[-+]?\d+\z/ |
|
129
|
3 |
3072 |
if ($size > 18 and CORE::not ref $int) |
|
134
|
5 |
8495 |
if $size <= @trits |
|
146
|
0 |
4 |
' ' eq $_ ? : |
|
|
211 |
4 |
exists $thash->{$_} ? : |
|
157
|
11852 |
10 |
$size <= 18 ? : |
|
166
|
8 |
7 |
$size <= 18 ? : |
|
172
|
1 |
1 |
$size <= 18 ? : |
|
182
|
1 |
5 |
unless ($modint_loaded) |
|
192
|
7 |
2 |
if ($size) { } |
|
194
|
1 |
6 |
if ($given_mod != $wanted_mod) |
|
202
|
1 |
3 |
if 0 != $power % 3 |
|
205
|
1 |
2 |
if $power <= 1 |
|
253
|
9 |
3607 |
if @_ < $arity |
|
254
|
20 |
3587 |
unless wantarray |
|
297
|
13 |
9235 |
if @_ < 2 |
|
298
|
9231 |
4 |
2 == @_ ? : |
|
305
|
5832 |
3403 |
$map ? : |
|
318
|
7 |
4378 |
if @_ < 2 |
|
319
|
4374 |
4 |
2 == @_ ? : |
|
327
|
3645 |
733 |
$map ? : |
|
338
|
9 |
66 |
if @_ < 2 |
|
339
|
3 |
63 |
unless wantarray |
|
342
|
45 |
18 |
$rel->is_true ? : |
|
355
|
13 |
143 |
if @_ < 3 |
|
356
|
3 |
140 |
if 1 < @sel and CORE::not wantarray |
|
366
|
30 |
15 |
if ('' ne $sfx) |
|
377
|
0 |
30 |
if ($size < @trits) |
|
391
|
3 |
7 |
if @_ < 2 |
|
392
|
3 |
4 |
unless wantarray |
|
395
|
0 |
4 |
if ($err->is_nil and $msw->Rtrits) |
|
407
|
3 |
10 |
if @_ < 3 |
|
408
|
3 |
7 |
unless wantarray |
|
418
|
2 |
5 |
if 0 == $den |
|
420
|
2 |
3 |
if ($den < 0) { } |
|
422
|
1 |
1 |
if ($rem) |
|
431
|
0 |
5 |
$xsw->Rtrits ? : |
|
476
|
15 |
30 |
if 'v' eq $sfx |
|
490
|
5 |
7411 |
unless ($size) |
|
491
|
2 |
3 |
unless @trits |
|
494
|
2 |
7412 |
if $size < 1 or 19683 < $size |
|
498
|
2 |
7410 |
if $size < @trits |
|
520
|
1 |
845 |
if $int < 0 |
|
531
|
1 |
5 |
if ('%' eq substr($string, 0, 1)) |
|
540
|
13 |
21 |
if ('@' eq $prefix) |
|
544
|
11 |
10 |
if ('%' eq $prefix) |
|
548
|
4 |
6 |
if ('$' eq $prefix) |
|
550
|
3 |
1 |
$size ? : |
|
574
|
1 |
1 |
if $is_neg |
|
580
|
318 |
160 |
unless @args |
|
583
|
40 |
120 |
if ($type) |
|
585
|
34 |
6 |
if eval {
do {
$type->DOES('Math::Logic::Ternary::Object')
}
} |
|
586
|
1 |
5 |
if 1 < @args |
|
589
|
1 |
4 |
if eval {
do {
$type->isa('Math::BigInt')
}
} |
|
591
|
3 |
1 |
if eval {
do {
$type->isa('Math::ModInt')
}
} |
|
595
|
1 |
119 |
if $type |
|
596
|
1 |
118 |
if 1 < @args |
|
598
|
94 |
24 |
if $prefix =~ /^[\+\-\d]/ |
|
691
|
2 |
35 |
if @{$rtrits;} != $that->Rtrits |
|
694
|
2 |
92 |
if $rtrits->[$pos]->as_int != $that->Trit($pos)->as_int |
|
708
|
77 |
39 |
@{$rtrits;} ? : |
|
714
|
1 |
1 |
@{$rtrits;} ? : |
|
720
|
1 |
1 |
@{$rtrits;} ? : |
|
|
1 |
2 |
@{$rtrits;} & 1 ? : |
|
726
|
10 |
51414 |
if ($pos < 0) |
|
728
|
1 |
9 |
if $pos < 0 |
|
730
|
38359 |
13064 |
$pos < @{$trits;} ? : |
|
736
|
19935 |
4101 |
unless wantarray |
|
773
|
1 |
5 |
if @_ < 2 |
|
774
|
1 |
4 |
unless wantarray |
|
786
|
11 |
12 |
if ($j < @trits) { } |
|
798
|
0 |
1 |
if ($j < @trits) { } |
|
816
|
1 |
5 |
if @_ < 2 |
|
817
|
1 |
4 |
unless wantarray |
|
830
|
11 |
12 |
if ($j < @trits) { } |
|
842
|
0 |
0 |
if ($j < @trits) { } |
|
860
|
1 |
1 |
if @_ < 2 |
|
861
|
1 |
0 |
unless wantarray |
|
873
|
0 |
0 |
$j < @trits ? : |
|
878
|
0 |
0 |
++$k < @trits ? : |
|
911
|
1 |
18 |
unless wantarray |
|
919
|
1 |
18 |
unless wantarray |
|
921
|
9 |
9 |
@_ ? : |