view release on metacpan or  search on metacpan

lib/Test/Deep/Cond.pm  view on Meta::CPAN

use warnings;

our $VERSION = '0.01';

use Test::Deep ();
use Test::Deep::Cmp;
use Exporter::Lite;

our @EXPORT = qw(cond);

sub cond(&) {
    my ($code) = @_;
    __PACKAGE__->new($code);
}

sub init {
    my ($self, $code) = @_;
    $self->{code} = $code;
}

sub descend {