use strict;
use warnings;

use Test::Contract;

my $c = contract {
    $_[0]->like( $user_input, qr/.../, "Format as expected" );
    $_[0]->isa_ok( $some_object, "Some::Class" );
};

if ($c->get_passing) {
    # so far, so good - move on!
} else {
    croak "Contract failed: ".$c->get_tap;
};