3 |
use Fey::ORM::Schema; |
use Fey::ORM::Schema; |
4 |
use Frey::Schema; |
use Frey::Schema; |
5 |
|
|
6 |
|
use Data::Dump qw/dump/; |
7 |
|
|
8 |
sub debug { 0 } # FIXME fake |
sub debug { 0 } # FIXME fake |
9 |
with 'Frey::Config'; |
with 'Frey::Config'; |
|
|
|
|
use Data::Dump qw/dump/; |
|
10 |
my $dsn = __PACKAGE__->config( __PACKAGE__ )->{dsn}; # FIXME yaaaack |
my $dsn = __PACKAGE__->config( __PACKAGE__ )->{dsn}; # FIXME yaaaack |
11 |
|
|
12 |
my ( $schema, $source ) = Frey::Schema->schema_source( $dsn ); |
my ( $schema, $source ) = Frey::Schema->schema_source( $dsn ); |