File Coverage

blib/lib/Math/BigFloat/Constant.pm

Criterion	Covered	Total	%
statement	18	24	75.0
branch	2	6	33.3
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	28	38	73.6

# -*- mode: perl; -*-

package Math::BigFloat::Constant;

use strict;
use warnings;

our $VERSION = '1.16';

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

use overload;                   # inherit from Math::BigFloat

##############################################################################
# We Are a True Math::BigFloat, But Thou Shallst Not Modify Us

sub modify {
    my ($self, $method) = @_;

    unless (defined $method) {
        my @callinfo = caller(0);
        for (my $i = 1 ; ; ++$i) {
            my @next = caller($i);
            last unless @next;
            @callinfo = @next;
        }
        $method = $callinfo[3];
    }

    die("Can not modify ", ref($self), " $self via $method()\n");
}

##############################################################################
# But cloning us creates a modifiable Math::BigFloat, so that overload works

sub copy {
    my $x = shift;

    return Math::BigFloat->new($x) unless ref($x);
    Math::BigFloat->copy($x);
}

1;

__END__