view release on metacpan or  search on metacpan

lib/Test/Easy/DataDriven.pm  view on Meta::CPAN

use warnings;

use Carp qw(confess);
use Test::Easy::DeepEqual qw(deep_equal);
use Scalar::Util qw(blessed);
use Hash::MostUtils qw(lkeys);
use Functional::Utility qw(hook_run y_combinator);

our @EXPORT = qw(run_where each_ok);

sub assert(&;$) {
  require Carp;
  Carp::confess pop() if ! shift->();
}

sub run_where {
  my $code = pop;
  my (@where) = @_;

  return y_combinator {
    my ($recurse) = @_;