1 files changed, 90 insertions, 0 deletions
diff --git a/dist/Math-BigInt/t/Math/BigInt/Subclass.pm b/dist/Math-BigInt/t/Math/BigInt/Subclass.pm
new file mode 100644
index 0000000000..d45e9e53ad
--- /dev/null
+++ b/dist/Math-BigInt/t/Math/BigInt/Subclass.pm
@@ -0,0 +1,90 @@
+#!/usr/bin/perl -w
+
+package Math::BigInt::Subclass;
+
+require 5.005_02;
+use strict;
+
+use Exporter;
+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.04;
+
+use overload;	# inherit overload from BigInt
+
+# Globals
+$accuracy = $precision = undef;
+$round_mode = 'even';
+$div_scale = 40;
+$lib = '';
+
+sub new
+{
+        my $proto  = shift;
+        my $class  = ref($proto) || $proto;
+
+        my $value       = shift;
+	my $a = $accuracy; $a = $_[0] if defined $_[0];
+	my $p = $precision; $p = $_[1] if defined $_[1];
+        my $self = Math::BigInt->new($value,$a,$p,$round_mode);
+	bless $self,$class;
+        $self->{'_custom'} = 1; # make sure this never goes away
+        return $self;
+}
+
+sub bgcd
+  {
+  Math::BigInt::bgcd(@_);
+  }
+
+sub blcm
+  {
+  Math::BigInt::blcm(@_);
+  }
+
+sub as_int
+  {
+  Math::BigInt->new($_[0]);
+  }
+
+BEGIN
+  {
+  *objectify = \&Math::BigInt::objectify;
+
+  # these are called by AUTOLOAD from BigFloat, so we need at least these.
+  # We cheat, of course..
+  *bneg = \&Math::BigInt::bneg;
+  *babs = \&Math::BigInt::babs;
+  *bnan = \&Math::BigInt::bnan;
+  *binf = \&Math::BigInt::binf;
+  *bzero = \&Math::BigInt::bzero;
+  *bone = \&Math::BigInt::bone;
+  }
+
+sub import
+  {
+  my $self = shift;
+
+  my @a; my $t = 0;
+  foreach (@_)
+    {
+    # remove the "lib => foo" parameters and store it
+    $lib = $_, $t = 0, next if $t == 1;
+    if ($_ eq 'lib')
+      {
+      $t = 1; next;
+      }
+    push @a,$_;
+    }
+  $self->SUPER::import(@a);			# need it for subclasses
+  $self->export_to_level(1,$self,@a);		# need this ?
+  }
+
+1;