sample.t

use strict;
use warnings;

use Test::More;
use Test::More::Hooks;

subtest "xxxxxxxxxxx" => sub {
    my $subject;
    before { $subject = Foo->new; };
    after  { undef $subject; };

    subtest "ooooooo" => sub {
        isa_ok $subject, 'Foo';
    };

    subtest "ooooooo" => sub {
        can_ok $subject, 'bar';
    };
};

done_testing;