Teng::Schema::Loaderを使ったらTengオブジェクトが返るので - Perl日記その後Teng->newする必要なかった。 0.14から0.14_01での変更点みたい。 以下Amon2での使用の例。 MyApp.pm use Teng; use Teng::Schema::Loader; use Test::DB; my $schema; sub db { my $self = shift; if ( !defined $self->{db} ) { my $conf = $self->config->{'DBI'} or die "missing configuration for 'DBI'"; my $dbh = DBI->connect(@{$conf}); # $schema ||= Teng::Schema::Loader->load( $self->{db} = Teng::Schema::Loader->load( namespace => 'MyAp
