File Coverage

blib/lib/Math/BigInt/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


line stmt bran cond sub pod time code
1             # -*- mode: perl; -*-
2              
3             package Math::BigInt::Constant;
4              
5 2     2   69767 use strict;
  2         15  
  2         61  
6 2     2   11 use warnings;
  2         4  
  2         84  
7              
8             our $VERSION = '1.15';
9              
10 2     2   1427 use Math::BigInt '1.999802';
  2         40197  
  2         11  
11             our @ISA = qw( Math::BigInt );
12              
13 2     2   27687 use overload; # inherit from Math::BigInt
  2         5  
  2         13  
14              
15             ##############################################################################
16             # We Are a True Math::BigInt, But Thou Shallst Not Modify Us
17              
18             sub modify {
19 33     33 1 69395 my ($self, $method) = @_;
20              
21 33 50       94 unless (defined $method) {
22 0         0 my @callinfo = caller(0);
23 0         0 for (my $i = 1 ; ; ++$i) {
24 0         0 my @next = caller($i);
25 0 0       0 last unless @next;
26 0         0 @callinfo = @next;
27             }
28 0         0 $method = $callinfo[3];
29             }
30              
31 33         124 die("Can not modify ", ref($self), " $self via $method()\n");
32             }
33              
34             ##############################################################################
35             # But cloning us creates a modifyable Math::BigInt, so that overload works
36              
37             sub copy {
38 5     5 1 28839 my $x = shift;
39              
40 5 50       25 return Math::BigInt->new($x) unless ref($x);
41 5         21 Math::BigInt->copy($x);
42             }
43              
44             1;
45              
46             __END__