lib/A3C/Schema.pm

package A3C::Schema;

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

my $dsn = 'dbi:Pg:dbname=a3c';
#$dsn = 'dbi:SQLite:dbname=./var/a3c.sqlite';

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			my $dsn = 'dbi:Pg:dbname=a3c';
7			#$dsn = 'dbi:SQLite:dbname=./var/a3c.sqlite';
8
9			my ( $schema, $source ) = Frey::Schema->schema_source( $dsn );
10
11			has_schema $schema;
12
13			__PACKAGE__->DBIManager()->add_source($source);
14
15	dpavlin	234	$source->dbh->do( qq{ set client_encoding = 'utf-8' } ) if $dsn =~ /Pg/;
16
17	dpavlin	102	1;