use My::Schema; my $schema = My::Schema->connection("dbi:SQLite::memory:"); $schema->deploy; $schema->populate( my_baseline_fixtures() ); # Set 'em all up if you have logic not loaded by default. $schema->load_namespaces( default_resultset_class => "+My::BizLogiks" ); # Or customize per class if necessary. for my $source ( $schema->sources ) { print $source, $/; $schema->resultset($source)->result_class("My::BizLogiks::" . $source); } # Do some tests!!!