Home
last modified time | relevance | path

Searched refs:numify (Results 1 – 10 of 10) sorted by relevance

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigRat/t/
H A Dbigrat.t232 $x = $cr->new('33/8'); ok ($x->numify() * 1000, 4125);
233 $x = $cr->new('-33/8'); ok ($x->numify() * 1000, -4125);
234 $x = $cr->new('inf'); ok ($x->numify(), 'inf');
235 $x = $cr->new('-inf'); ok ($x->numify(), '-inf');
236 $x = $cr->new('NaN'); ok ($x->numify(), 'NaN');
238 $x = $cr->new('4/3'); ok ($x->numify(), 4/3);
H A Dbigratpm.inc57 } elsif ($f =~ /^(length|numify)$/) {
279 &numify
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Doverload.t29 0+ numify) # Order of arguments unsignificant
38 sub numify { 0 + "${$_[0]}" } # Not needed, additional overhead subroutine
354 test (overload::Method($a, '0+') eq \&Oscalar::numify); # 106
355 test (overload::Method($aI,'0+') eq \&Oscalar::numify); # 107
1115 use overload (qw(0+ numify fallback 1));
1122 sub numify { ${$_[0]} } subroutine
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/
H A DBigInt.pm70 'cos' => sub { cos($_[0]->numify()) },
71 'sin' => sub { sin($_[0]->numify()) },
72 'exp' => sub { exp($_[0]->numify()) },
73 'atan2' => sub { atan2($_[0]->numify(),$_[1]) },
131 '0+' => sub { $_[0]->numify(); }
268 $a = $a->numify() if ref($a) && $a->can('numify');
324 $p = $p->numify() if ref($p) && $p->can('numify');
790 sub numify subroutine
1906 $n = $n->numify() if ref($n);
2076 $scale = $scale->numify() if ref ($scale);
H A DBigRat.pm1163 sub numify subroutine
1171 return $x->{_n}->numify() if $x->{_d}->is_one();
1175 $neg * $x->{_n}->numify() / $x->{_d}->numify(); # return sign * N/D
H A DBigFloat.pm397 sub numify subroutine
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/Math/BigRat/
H A DTest.pm98 sub numify subroutine
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/t/
H A Dbigintpm.inc78 } elsif ($f =~ /^(numify|length|stringify|as_hex|as_bin)$/) {
528 # check numify
530 $x = $class->new($BASE-1); ok ($x->numify(),$BASE-1);
531 $x = $class->new(-($BASE-1)); ok ($x->numify(),-($BASE-1));
534 $x = $class->new($BASE); ok ($x->numify()+0,$BASE+0);
535 $x = $class->new(-$BASE); ok ($x->numify(),-$BASE);
537 ok($x->numify(),-($BASE*$BASE*1+$BASE*1+1));
1121 &numify
H A Dbigfltpm.inc56 } elsif ($f =~ /^(numify|length|as_number|as_hex|as_bin)$/) {
210 # bug in bsstr()/numify() showed up in after-rounding in bdiv()
389 &numify
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/pod/
H A Dperldiag.pod4319 If you really do mean it, explicitly numify your reference, like so: