From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- .../tlnet/tlpkg/tlperl/lib/Math/BigInt/Trace.pm | 48 ++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100644 systems/texlive/tlnet/tlpkg/tlperl/lib/Math/BigInt/Trace.pm (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Math/BigInt/Trace.pm') diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Math/BigInt/Trace.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Math/BigInt/Trace.pm new file mode 100644 index 0000000000..5f83c79210 --- /dev/null +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Math/BigInt/Trace.pm @@ -0,0 +1,48 @@ +#!perl + +package Math::BigInt::Trace; + +require 5.010; +use strict; +use warnings; + +use Exporter; +use Math::BigInt; + +our ($accuracy, $precision, $round_mode, $div_scale); + +our @ISA = qw(Exporter Math::BigInt); + +our $VERSION = '0.49'; + +use overload; # inherit overload from Math::BigInt + +# Globals +$accuracy = $precision = undef; +$round_mode = 'even'; +$div_scale = 40; + +sub new { + my $proto = shift; + my $class = ref($proto) || $proto; + + my $value = shift; + my $a = $accuracy; + $a = $_[0] if defined $_[0]; + my $p = $precision; + $p = $_[1] if defined $_[1]; + my $self = Math::BigInt->new($value, $a, $p, $round_mode); + bless $self, $class; + print "MBI new '$value' => '$self' (", ref($self), ")"; + return $self; +} + +sub import { + print "MBI import ", join(' ', @_); + my $self = shift; + Math::BigInt::import($self, @_); # need it for subclasses +# $self->export_to_level(1, $self, @_); # need this ? + @_ = (); +} + +1; -- cgit v1.2.3