lib/Math/BigRat.pm

7 #   sign : +,-,NaN,+inf,-inf
49 my $nan = 'NaN';
114       # TODO: trap NaN, inf
121       # TODO: trap NaN, inf
187         # inf/inf => NaN
219     $self->{sign} = 'NaN';
227     return $self->bnan() if $self->{sign} eq 'NaN';
279   if ($x->{sign} !~ /^[+-]$/)		# inf, NaN etc
295   if ($x->{sign} !~ /^[+-]$/)		# inf, NaN etc
328   # no normalize for NaN, inf etc.
362   # used by parent class bnan() to initialize number to NaN
369     Carp::croak ("Tried to set $self to NaN in $class\::_bnan()");
424   return $x->bnan() if ($x->{sign} eq 'NaN' || $y->{sign} eq 'NaN');
490   return $x->bnan() if ($x->{sign} eq 'NaN' || $y->{sign} eq 'NaN');
628   return $x if $x->{sign} !~ /^[+-]$/;	# NaN, inf, -inf
657   return $x if $x->{sign} !~ /^[+-]$/;	# NaN, inf, -inf
689   return 1 if ($x->{sign} =~ /^[+-]$/) &&	# NaN and +-inf aren't
719   return 1 if ($x->{sign} =~ /^[+-]$/) &&		# NaN & +-inf aren't
729   return 0 if $x->{sign} !~ /^[+-]$/;			# NaN & +-inf aren't
760   return ($self->bnan(),$self->bnan()) if $x->{sign} eq 'NaN';
928   # $x <= 0 => NaN
980   # $x or $y or $m are NaN or +-inf => NaN
1004   # $x or $y are NaN or +-inf => NaN
1021   return $x->bnan() if $x->{sign} !~ /^[+]/;    # NaN, -inf or < 0
1110     # handle +-inf and NaN
1148     # handle +-inf and NaN
1168   return $x->bstr() if $x->{sign} !~ /^[+-]$/;	# inf, NaN, etc
1182   return $x if $x->{sign} !~ /^[+-]$/;			# NaN, inf etc
1446 false. Please note that '+inf' is also positive, while 'NaN' and '-inf' aren't.
1453 note that '-inf' is also negative, while 'NaN' and '+inf' aren't.
1460 false. Please note that '-inf', 'inf' and 'NaN' aren't integer.
1527         trap_nan        RW      Trap creation of NaN (undef = no)
1544 =item NaN handling (partial)