From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn 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();