diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Math/BigInt/Trace.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Math/BigInt/Trace.pm | 55 |
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; |