use strict;
use warnings;
use Test::More;

use_ok 'Test::Mock::Recorder';

my $double = Test::Mock::Recorder->new;
$double->expects('print')->with('hello');

# callback
$double->verify_ok(
    sub {
        shift->print('hello');
    }
);

# non-callback
my $io = $double->replay;
$io->print('hello');
$double->verify_ok($io);

done_testing;