lib/Reblog/Schema.pm

package Reblog::Schema;

use Fey::ORM::Schema;

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;

# fixup MySQL schema (hooray!)

$schema->add_foreign_key(
        Fey::FK->new(
                source_columns => [ $schema->table('feeds')->column('id') ],
                target_columns => [ $schema->table('items')->column('feed_id') ],
        )
);

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

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

warn "## dsn $dsn";

1;
1	package Reblog::Schema;
2
3	use Fey::ORM::Schema;
4
5	sub debug { 0 } # FIXME fake
6	with 'Frey::Config';
7	my $dsn = __PACKAGE__->config( __PACKAGE__ )->{dsn}; # FIXME yaaaack
8
9	my ( $schema, $source ) = Frey::Schema->schema_source( $dsn );
10
11	has_schema $schema;
12
13	# fixup MySQL schema (hooray!)
14
15	$schema->add_foreign_key(
16	Fey::FK->new(
17	source_columns => [ $schema->table('feeds')->column('id') ],
18	target_columns => [ $schema->table('items')->column('feed_id') ],
19	)
20	);
21
22	__PACKAGE__->DBIManager()->add_source($source);
23
24	#$source->dbh->do( qq{ set client_encoding = 'utf-8' } ) if $dsn =~ /Pg/;
25
26	warn "## dsn $dsn";
27
28	1;