lib/Strix/Schema.pm

package Strix::Schema;

use Fey::ORM::Schema;
use Frey::Schema;

my $dsn = __PACKAGE__->config( __PACKAGE__ )->{dsn}; # FIXME yaaaack

my ( $schema, $source ) = Frey::Schema->schema_source( $dsn );

has_schema $schema;

#warn Strix::Schema->SQLFactoryClass();

__PACKAGE__->DBIManager()->add_source($source);

$source->dbh->do( qq{ set client_encoding = 'utf-8' } ) if $dsn =~ /Pg/;

1;
1	package Strix::Schema;
2
3	use Fey::ORM::Schema;
4	use Frey::Schema;
5
6	my $dsn = __PACKAGE__->config( __PACKAGE__ )->{dsn}; # FIXME yaaaack
7
8	my ( $schema, $source ) = Frey::Schema->schema_source( $dsn );
9
10	has_schema $schema;
11
12	#warn Strix::Schema->SQLFactoryClass();
13
14	__PACKAGE__->DBIManager()->add_source($source);
15
16	$source->dbh->do( qq{ set client_encoding = 'utf-8' } ) if $dsn =~ /Pg/;
17
18	1;