Select Code to Download

use strict;
use warnings;

...
} else {
    croak "Contract failed: ".$c->get_tap;
};

sub refute {
    my ($condition, $message) = @_;
    ok (!$condition, $message)
        or diag $condition;
};

package My::Check;
use Exporter qw(import);

...
}, args => 2, export => 1;

1;

use Test::More tests => 1;
use My::Check;

my_check $foo, $bar, "foo is fine";

# inside a running application
use Test::Contract;
use My::Check(); # don't pollute global namespace
...
if (!$c->get_passing) {
    # ouch, something went wrong with $foo and $bar
};

use Test::More;
use Test::Contract::Unit qw(contract_is);
use My::Check;
...

is_contract $c, "1100", "my_check works as expected";
done_testing;