Searched defs:is_zero (Results 1 - 4 of 4) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/
H A DBigFloat.pm447 my $xz = $x->is_zero();
448 my $yz = $y->is_zero();
511 my $xz = $x->is_zero();
512 my $yz = $y->is_zero();
581 return $x->bround($a,$p,$r) if $y->is_zero(); # x+0
582 if ($x->is_zero()) # 0+y
642 if ($y->is_zero()) # still round for not adding zero
706 my $zero = $x->is_zero();
740 return $x->bnan() if $x->{sign} ne '+' || $x->is_zero();
768 return $x->bnan() if $base->is_zero() ||
1169 sub is_zero subroutine
[all...]
H A DBigRat.pm170 elsif (!$diff_e->is_zero())
333 ($x->{_n}->is_zero()))
468 unless $x->{sign} eq '+' && $x->{_n}->is_zero(); # not -0
471 unless $x->{sign} eq '+' && $x->{_n}->is_zero(); # not -0
495 return $x->bnan() if $x->is_zero() || $y->is_zero();
505 return wantarray ? ($x,$self->bzero()) : $x if $x->is_zero();
542 if (($x->{sign} !~ /^[+-]$/) || ($y->{sign} !~ /^[+-]$/) || $y->is_zero());
545 return wantarray ? ($x,$self->bzero()) : $x if $x->is_zero();
581 if (($x->{sign} !~ /^[+-]$/) || ($y->{sign} !~ /^[+-]$/) || $y->is_zero());
694 sub is_zero subroutine
[all...]
H A DBigInt.pm122 # v5.6.1 dumps on this: return !$_[0]->is_zero() || undef; :-(
124 $t = 1 if !$_[0]->is_zero();
977 $x->{sign} =~ tr/+-/-+/ if !$x->is_zero(); # does nothing for NaN
1137 if ($y->is_zero())
1269 next if $y->is_zero();
1291 sub is_zero subroutine
1398 return $x->bnan() if $x->is_zero() || $y->is_zero();
1429 ($x->is_zero() && $y->is_zero()));
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Doverload.t1030 'bool' => sub { return !$_[0]->is_zero() || undef; }
1033 sub is_zero subroutine

Completed in 24 milliseconds