if ( $obj == NaN or $obj ) # true if true or NaN

##</code><code>##

  sub isTrue # !
  {
     my $obj = shift;
     $obj == NaN || $obj
  }