# inside a running application
use Test::Contract;
use My::Check(); # don't pollute global namespace

my $c = Test::Contract->new;
$c->my_check( $foo, $bar, "runtime-generated foo is fine, too" );
if (!$c->get_passing) {
    # ouch, something went wrong with $foo and $bar
};