/
usr
/
share
/
perl5
/
vendor_perl
/
Math
/
BigInt
/
/usr/share/perl5/vendor_perl/Math/BigInt
mkdir
upload
Name
Size
Mode
Actions
Calc.pm
76858
0644
edit
dl
rm
CalcEmu.pm
9994
0644
edit
dl
rm
Lib.pm
56798
0644
edit
dl
rm
Trace.pm
991
0644
edit
dl
rm
Edit:
/usr/share/perl5/vendor_perl/Math/BigInt/Trace.pm
(991B)
#!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;
Save
cmd:
run