1 |
dpavlin |
2 |
package Strix::Schema; |
2 |
|
|
|
3 |
|
|
use Fey::ORM::Schema; |
4 |
dpavlin |
102 |
use Frey::Schema; |
5 |
dpavlin |
2 |
|
6 |
dpavlin |
624 |
sub debug { 0 } # FIXME fake |
7 |
|
|
with 'Frey::Config'; |
8 |
dpavlin |
621 |
my $dsn = __PACKAGE__->config( __PACKAGE__ )->{dsn}; # FIXME yaaaack |
9 |
dpavlin |
15 |
|
10 |
dpavlin |
102 |
my ( $schema, $source ) = Frey::Schema->schema_source( $dsn ); |
11 |
dpavlin |
2 |
|
12 |
|
|
has_schema $schema; |
13 |
|
|
|
14 |
dpavlin |
143 |
#warn Strix::Schema->SQLFactoryClass(); |
15 |
dpavlin |
57 |
|
16 |
dpavlin |
2 |
__PACKAGE__->DBIManager()->add_source($source); |
17 |
dpavlin |
55 |
|
18 |
dpavlin |
169 |
$source->dbh->do( qq{ set client_encoding = 'utf-8' } ) if $dsn =~ /Pg/; |
19 |
|
|
|
20 |
dpavlin |
55 |
1; |