Subclass.pm revision 7c478bd95313f5f23a4c958a745db2134aa03244
require 5.005_02;
use strict;
use Exporter;
# $lib is for the "lib => " test
$lib
$VERSION = 0.04;
use overload; # inherit overload from BigInt
# Globals
$round_mode = 'even';
$div_scale = 40;
$lib = '';
sub new
{
my $proto = shift;
my $value = shift;
return $self;
}
sub bgcd
{
}
sub blcm
{
}
BEGIN
{
# these are called by AUTOLOAD from BigFloat, so we need at least these.
# We cheat, of course..
}
sub import
{
my $self = shift;
my @a; my $t = 0;
foreach (@_)
{
# remove the "lib => foo" parameters and store it
if ($_ eq 'lib')
{
$t = 1; next;
}
push @a,$_;
}
}
1;