4 |
use Frey::Schema; |
use Frey::Schema; |
5 |
|
|
6 |
my $dsn = 'dbi:Pg:dbname=new'; |
my $dsn = 'dbi:Pg:dbname=new'; |
7 |
$dsn = 'dbi:SQLite:dbname=./var/strix.sqlite'; |
#$dsn = 'dbi:SQLite:dbname=./var/strix.sqlite'; |
8 |
|
|
9 |
my ( $schema, $source ) = Frey::Schema->schema_source( $dsn ); |
my ( $schema, $source ) = Frey::Schema->schema_source( $dsn ); |
10 |
|
|
14 |
|
|
15 |
__PACKAGE__->DBIManager()->add_source($source); |
__PACKAGE__->DBIManager()->add_source($source); |
16 |
|
|
17 |
|
$source->dbh->do( qq{ set client_encoding = 'utf-8' } ) if $dsn =~ /Pg/; |
18 |
|
|
19 |
1; |
1; |