summaryrefslogtreecommitdiff
path: root/t/lib/Math/BigInt/Subclass.pm
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/Math/BigInt/Subclass.pm')
-rw-r--r--t/lib/Math/BigInt/Subclass.pm10
1 files changed, 7 insertions, 3 deletions
diff --git a/t/lib/Math/BigInt/Subclass.pm b/t/lib/Math/BigInt/Subclass.pm
index 688ad23769..0cbd15923f 100644
--- a/t/lib/Math/BigInt/Subclass.pm
+++ b/t/lib/Math/BigInt/Subclass.pm
@@ -6,14 +6,16 @@ require 5.005_02;
use strict;
use Exporter;
-use Math::BigInt(1.56);
+use Math::BigInt (1.64);
+# $lib is for the "lib => " test
use vars qw($VERSION @ISA $PACKAGE @EXPORT_OK
+ $lib
$accuracy $precision $round_mode $div_scale);
@ISA = qw(Exporter Math::BigInt);
@EXPORT_OK = qw(bgcd objectify);
-$VERSION = 0.03;
+$VERSION = 0.04;
use overload; # inherit overload from BigInt
@@ -21,6 +23,7 @@ use overload; # inherit overload from BigInt
$accuracy = $precision = undef;
$round_mode = 'even';
$div_scale = 40;
+$lib = '';
sub new
{
@@ -67,7 +70,8 @@ sub import
my @a; my $t = 0;
foreach (@_)
{
- $t = 0, next if $t == 1;
+ # remove the "lib => foo" parameters and store it
+ $lib = $_, $t = 0, next if $t == 1;
if ($_ eq 'lib')
{
$t = 1; next;