diff options
Diffstat (limited to 't/lib/Math/BigInt/Subclass.pm')
-rw-r--r-- | t/lib/Math/BigInt/Subclass.pm | 10 |
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; |