sub setup_schema_instance {
my $class = shift;
- my $schema = bless({}, 'DBIx::Class::Schema');
+ my $schema = {};
+ bless $schema, 'DBIx::Class::Schema';
$class->mk_classdata('schema_instance' => $schema);
}
Alias for L<txn_rollback>
-
-1;
-
=head1 AUTHORS
Matt S. Trout <mst@shadowcatsystems.co.uk>
=cut
+1;