lib/A3C/Schema.pm

package A3C::Schema;

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

use Data::Dump qw/dump/;

sub debug { 0 } # FIXME fake
with 'Frey::Config';
my $dsn = __PACKAGE__->config( __PACKAGE__ )->{dsn}; # FIXME yaaaack

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

has_schema $schema;

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

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

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