The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More;

my $class  = 'Distribution::Cooker';
my $module = 'Foo::Bar';

subtest setup => sub {
	use_ok( $class );
	can_ok( $class, 'module' );
	};

subtest do_it => sub {
	my $cooker = $class->new;
	isa_ok( $cooker, $class );
	can_ok( $cooker, 'module' );

	ok( ! $cooker->module, "There is nothing in module at start" );
	is( $cooker->module( $module ), $module, "Set module and return it" );
	is( $cooker->module, $module, "Remembers module name" );
	};

done_testing();