From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
123456789101112131415 package Test::Schema;use base qw/DBIx::Class::Schema/;__PACKAGE__->load_namespaces();sub deploy_or_connect { my $self = shift; my $schema = $self->connect(@_); $schema->deploy(); return $schema;}1;
package
Test::Schema;
use
base
qw/DBIx::Class::Schema/
;
__PACKAGE__->load_namespaces();
sub
deploy_or_connect {
my
$self
=
shift
$schema
->
connect
(
@_
);
->deploy();
return
}
1;