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