diff options
author | Karl Berry <karl@freefriends.org> | 2017-04-18 23:10:57 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2017-04-18 23:10:57 +0000 |
commit | 40b4b6e177c62a14c166dbba6adf3abc415af4b2 (patch) | |
tree | 2996bf29509c806bd8064fb6cf38092c1b375ff8 /Master/tlpkg/tlperl/lib/Math/BigFloat/Trace.pm | |
parent | 8e743c86b6872f30b7a35c72aa944455157d4b3f (diff) |
tlperl 5.24.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@43914 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Math/BigFloat/Trace.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Math/BigFloat/Trace.pm | 64 |
1 files changed, 32 insertions, 32 deletions
diff --git a/Master/tlpkg/tlperl/lib/Math/BigFloat/Trace.pm b/Master/tlpkg/tlperl/lib/Math/BigFloat/Trace.pm index 203e0510b64..634d9670d46 100644 --- a/Master/tlpkg/tlperl/lib/Math/BigFloat/Trace.pm +++ b/Master/tlpkg/tlperl/lib/Math/BigFloat/Trace.pm @@ -1,58 +1,58 @@ -#!/usr/bin/perl -w +#!perl package Math::BigFloat::Trace; -require 5.005_02; +require 5.006; use strict; +use warnings; use Exporter; use Math::BigFloat; -use vars qw($VERSION @ISA $PACKAGE @EXPORT_OK - $accuracy $precision $round_mode $div_scale); -@ISA = qw(Exporter Math::BigFloat); +our ($PACKAGE, @EXPORT_OK, $accuracy, $precision, $round_mode, $div_scale); -$VERSION = '0.36'; +our @ISA = qw(Exporter Math::BigFloat); -use overload; # inherit overload from BigFloat +our $VERSION = '0.42_01'; + +use overload; # inherit overload from BigFloat # Globals $accuracy = $precision = undef; $round_mode = 'even'; $div_scale = 40; -sub new -{ - my $proto = shift; - my $class = ref($proto) || $proto; +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::BigFloat->new($value,$a,$p,$round_mode); + my $value = shift; + my $a = $accuracy; + $a = $_[0] if defined $_[0]; + my $p = $precision; + $p = $_[1] if defined $_[1]; + my $self = Math::BigFloat->new($value, $a, $p, $round_mode); -# remember, downgrading may return a BigInt, so don't meddle with class -# bless $self,$class; + # remember, downgrading may return a BigInt, so don't meddle with class + # bless $self, $class; - print "MBF new '$value' => '$self' (",ref($self),")"; - return $self; + print "MBF new '$value' => '$self' (", ref($self), ")"; + return $self; } -sub import - { - print "MBF import ",join(' ',@_); - my $self = shift; +sub import { + print "MBF import ", join(' ', @_); + my $self = shift; - # we catch the constants, the rest goes go BigFloat - my @a = (); - foreach (@_) - { - push @a, $_ if $_ ne ':constant'; + # we catch the constants, the rest goes go BigFloat + my @a = (); + foreach (@_) { + push @a, $_ if $_ ne ':constant'; } - overload::constant float => sub { $self->new(shift); }; + overload::constant float => sub { $self->new(shift); }; - Math::BigFloat->import(@a); # need it for subclasses -# $self->export_to_level(1,$self,@_); # need this ? - } + Math::BigFloat->import(@a); # need it for subclasses +# $self->export_to_level(1,$self,@_); # need this ? +} 1; |