summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Math/BigInt/Trace.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Math/BigInt/Trace.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Math/BigInt/Trace.pm55
1 files changed, 28 insertions, 27 deletions
diff --git a/Master/tlpkg/tlperl/lib/Math/BigInt/Trace.pm b/Master/tlpkg/tlperl/lib/Math/BigInt/Trace.pm
index 79fc0970e47..4e474976e54 100644
--- a/Master/tlpkg/tlperl/lib/Math/BigInt/Trace.pm
+++ b/Master/tlpkg/tlperl/lib/Math/BigInt/Trace.pm
@@ -1,47 +1,48 @@
-#!/usr/bin/perl -w
+#!perl
package Math::BigInt::Trace;
-require 5.005_02;
+require 5.006;
use strict;
+use warnings;
use Exporter;
use Math::BigInt;
-use vars qw($VERSION @ISA $PACKAGE @EXPORT_OK
- $accuracy $precision $round_mode $div_scale);
-@ISA = qw(Exporter Math::BigInt);
+our ($PACKAGE, @EXPORT_OK, $accuracy, $precision, $round_mode, $div_scale);
-$VERSION = '0.36';
+our @ISA = qw(Exporter Math::BigInt);
-use overload; # inherit overload from BigInt
+our $VERSION = '0.42_01';
+
+use overload; # inherit overload from 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 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 ?
- @_ = ();
- }
+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;