package DBIx::Cookbook::DBIC; use Moose; extends qw(MooseX::App::Cmd); has 'schema' => (is => 'rw'); sub BUILD { my ($self)=@_; use DBIx::Cookbook::DBIC::Sakila; use DBIx::Cookbook::DBH; my $schema = DBIx::Cookbook::DBIC::Sakila->connect( sub { my $config = DBIx::Cookbook::DBH->new; $config->dbh } ); #### ->load_namespaces for DBIx/Cookbook/DBIC/CustomResult ??? $self->schema($schema); } 1;