Server IP : 85.214.239.14 / Your IP : 18.225.117.89 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/self/root/usr/share/perl/5.36.0/Math/BigRat/ |
Upload File : |
# -*- mode: perl; -*- package Math::BigRat::Trace; use strict; use warnings; use Exporter; use Math::BigRat; our @ISA = qw(Exporter Math::BigRat); our $VERSION = '0.65'; use overload; # inherit overload from Math::BigRat # Globals our $accuracy = undef; our $precision = undef; our $round_mode = 'even'; our $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 = $class -> SUPER::new($value, $a, $p, $round_mode); printf "Math::BigRat new '%s' => '%s' (%s)\n", $value, $self, ref($self); return $self; } sub import { my $class = shift; printf "%s -> import(%s)\n", $class, join(", ", @_); # we catch the constants, the rest goes to parent my $constant = grep { $_ eq ':constant' } @_; my @a = grep { $_ ne ':constant' } @_; if ($constant) { overload::constant integer => sub { $class -> new(shift); }, float => sub { $class -> new(shift); }, binary => sub { # E.g., a literal 0377 shall result in an object whose value # is decimal 255, but new("0377") returns decimal 377. return $class -> from_oct($_[0]) if $_[0] =~ /^0_*[0-7]/; $class -> new(shift); }; } $class -> SUPER::import(@a); # need it for subclasses #$self -> export_to_level(1, $class, @_); # need this ? } 1;