1#!/usr/bin/perl -w
2
3package Math::BigFloat::Subclass;
4
5require 5.005_02;
6use strict;
7
8use Exporter;
9use Math::BigFloat(1.38);
10use vars qw($VERSION @ISA $PACKAGE
11            $accuracy $precision $round_mode $div_scale);
12
13@ISA = qw(Exporter Math::BigFloat);
14
15$VERSION = 0.04;
16
17use overload; 		# inherit overload from BigInt
18
19# Globals
20$accuracy = $precision = undef;
21$round_mode = 'even';
22$div_scale = 40;
23
24sub new
25{
26        my $proto  = shift;
27        my $class  = ref($proto) || $proto;
28
29        my $value       = shift;
30	my $a = $accuracy; $a = $_[0] if defined $_[0];
31	my $p = $precision; $p = $_[1] if defined $_[1];
32        # Store the floating point value
33        my $self = Math::BigFloat->new($value,$a,$p,$round_mode);
34        bless $self, $class;
35        $self->{'_custom'} = 1; # make sure this never goes away
36        return $self;
37}
38
39BEGIN
40  {
41  *objectify = \&Math::BigInt::objectify;
42  }
43
441;
45