Help for this page

Select Code to Download

Select or download this

sub assert{
   my ($stmt,@args)=@_;
...
      die "Failed assertion '$str'\n";
   }
}