xref: /openbsd-src/gnu/usr.bin/perl/cpan/Math-BigInt/t/Math/BigFloat/Subclass.pm (revision 3d61058aa5c692477b6d18acfbbdb653a9930ff9)

# -*- mode: perl; -*-

# test subclassing Math::BigFloat

package Math::BigFloat::Subclass;

use strict;
use warnings;

use Math::BigFloat;

our @ISA = qw(Math::BigFloat);

our $VERSION = "0.09";

use overload;                   # inherit overload

# Global variables. The values can be specified explicitly or obtained from the
# superclass.

our $accuracy   = undef;        # or Math::BigFloat::Subclass -> accuracy();
our $precision  = undef;        # or Math::BigFloat::Subclass -> precision();
our $round_mode = "even";       # or Math::BigFloat::Subclass -> round_mode();
our $div_scale  = 40;           # or Math::BigFloat::Subclass -> div_scale();

BEGIN {
    *objectify = \&Math::BigInt::objectify;
}

# We override new()

sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;

    my $self = $class -> SUPER::new(@_);
    $self->{'_custom'} = 1;     # attribute specific to this subclass
    bless $self, $class;
}

# Any other methods to override can go here:

# sub method {
#     ...
# }

1;