File Coverage

blib/lib/Math/SymbolicX/BigNum.pm

Criterion	Covered	Total	%
statement	21	25	84.0
branch	0	2	0.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	26	32	81.2

package Math::SymbolicX::BigNum;

use 5.006;
use strict;
use warnings;
use Carp;

require Math::BigInt;
require Math::BigRat;
require Math::BigFloat;

our $VERSION = '0.02';

use Math::SymbolicX::ParserExtensionFactory (
    bigint => sub {
        my $argstring = shift;
        return Math::Symbolic::Constant->new( Math::BigInt->new($argstring) );
    },
    bigrat => sub {
        my $argstring = shift;
        return Math::Symbolic::Constant->new( Math::BigRat->new($argstring) );
    },
    bignum => sub {
        my $argstring = shift;
        if ( $argstring =~ /\// ) {
            return Math::Symbolic::Constant->new(
                Math::BigRat->new($argstring) );
        }
        else {
            return Math::Symbolic::Constant->new(
                Math::BigFloat->new($argstring) );
        }
    },
    bigfloat => sub {
        my $argstring = shift;
        return Math::Symbolic::Constant->new( Math::BigFloat->new($argstring) );
    },
);

1;
__END__