This module is totally in development right now.
DBIx::Class::Factory
package
My::UserFactory;
__PACKAGE__->resultset(My::Schema->resultset(
'User'
));
__PACKAGE__->fields({
name
=> __PACKAGE__->seq(
sub
{
'User #'
.
shift
}),
superuser
=> 0,
});
Ruby has factory_girl
, Python has factory_boy
.
Now Perl has DBIx::Class::Factory
.