view release on metacpan or  search on metacpan

t/lib/Test/Fatal/Assert.pm  view on Meta::CPAN

  }
  else {
    pass("$reason should raise exception");
    if ( defined $callback ) {
      local $_ = $result;
      $callback->($result);
    }
  }
}

sub and_fatal_is(&) {
  my ($code) = @_;
  return ( and_fatal_is => $code );
}
1;