File Coverage

blib/lib/Math/BigRat/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::BigRat::Constant;

use strict;
use warnings;

our $VERSION = '1.16';

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

use overload;                   # inherit from Math::BigRat

##############################################################################
# We Are a True Math::BigRat, 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::BigRat, so that overload works

sub copy {
    my $x = shift;

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

1;

__END__