Reading database from ...
------------ ------ ------ ------ ------ ------
File stmt bran cond sub total
------------ ------ ------ ------ ------ ------
tests/bigint 100.0 50.0 n/a 100.0 93.7
Total 100.0 50.0 n/a 100.0 93.7
------------ ------ ------ ------ ------ ------
Run: ...
Perl version: ...
OS: ...
Start: ...
Finish: ...
tests/bigint
line err stmt bran cond sub code
1 #!/usr/bin/perl
2
3 # Copyright 2012-2026, Paul Johnson (paul@pjcj.net)
4
5 # This software is free. It is licensed under the same terms as Perl itself.
6
7 # The latest version of this software should be available from my homepage:
8 # https://pjcj.net
9
10 # __COVER__ skip_test $] < 5.032
11 # __COVER__ skip_reason Too fragile below 5.32
12
13 1 1 use strict;
1
1
14 1 1 use warnings;
1
1
15
16 1 1 use Math::BigInt ":constant";
1
1
17
18 1 my $x = 1;
19 *** 1 * 50 print $x if 1 >= $x;
Branches
--------
line err % true false branch
----- --- ------ ------ ------ ------
19 *** 50 1 0 if bless( {"sign" => "+","value" => bless( [1], 'Math::BigInt::Calc' )}, 'Math::BigInt' ) >= $x
Covered Subroutines
-------------------
Subroutine Count Location
---------- ----- ---------------
BEGIN 1 tests/bigint:13
BEGIN 1 tests/bigint:14
BEGIN 1 tests/bigint:16