diff options
| author | Tels <nospam-abuse@bloodgate.com> | 2007-06-26 22:56:45 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-27 12:57:52 +0000 |
| commit | fade31f0d958af49245e9d5d2d39ab5492d90d94 (patch) | |
| tree | 95738216b73e942e33eb7e0dd719212b6bdb78c2 /lib/bigint.pm | |
| parent | 30afc38d44f16307c535215ac91b9b6259f70b14 (diff) | |
| download | perl-fade31f0d958af49245e9d5d2d39ab5492d90d94.tar.gz | |
Re: RFC: bigint et. al exporting PI method? [PATCH]
Message-Id: <200706262056.47311@bloodgate.com>
p4raw-id: //depot/perl@31479
Diffstat (limited to 'lib/bigint.pm')
| -rw-r--r-- | lib/bigint.pm | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/lib/bigint.pm b/lib/bigint.pm index 941ee5cf3b..b8a25a3475 100644 --- a/lib/bigint.pm +++ b/lib/bigint.pm @@ -4,7 +4,7 @@ use 5.006002; $VERSION = '0.22'; use Exporter; @ISA = qw( Exporter ); -@EXPORT_OK = qw( ); +@EXPORT_OK = qw( PI e ); @EXPORT = qw( inf NaN ); use strict; @@ -215,7 +215,10 @@ sub import splice @a, $j, 1; $j --; $oct = \&_oct_global; } - else { die "unknown option $_[$i]"; } + elsif ($_[$i] !~ /^(PI|e)\z/) + { + die ("unknown option $_[$i]"); + } } my $class; $_lite = 0; # using M::BI::L ? @@ -266,7 +269,7 @@ sub import no strict 'refs'; if (!defined *{"${package}::inf"}) { - $self->export_to_level(1,$self,@a); # export inf and NaN + $self->export_to_level(1,$self,@a); # export inf and NaN, e and PI } { no warnings 'redefine'; @@ -275,8 +278,10 @@ sub import } } -sub inf () { Math::BigInt->binf(); } -sub NaN () { Math::BigInt->bnan(); } +sub inf () { Math::BigInt::binf(); } +sub NaN () { Math::BigInt::bnan(); } +sub PI { Math::BigInt->new(3); } +sub e { Math::BigInt->new(2); } 1; @@ -489,6 +494,14 @@ handle bareword C<inf> properly. A shortcut to return Math::BigInt->bnan(). Useful because Perl does not always handle bareword C<NaN> properly. +=item e() + +Returns Euler's number C<e>, aka exp(1), to the given number of digits. + +=item PI() + +Returns PI to the given number of digits. + =item upgrade() Return the class that numbers are upgraded to, is in fact returning |