summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/Math/BigInt/Trace.pm
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /systems/texlive/tlnet/tlpkg/tlperl/lib/Math/BigInt/Trace.pm
Initial commit
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Math/BigInt/Trace.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Math/BigInt/Trace.pm48
1 files changed, 48 insertions, 0 deletions
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;