lib/Reblog/Schema.pm

package Reblog::Schema;

use Fey::ORM::Schema;

my $dsn = __PACKAGE__->config( __PACKAGE__ )->{dsn}; # FIXME yaaaack
my $dsn = "DBI:mysql:database=reblog";
$dsn .= ";host=127.0.0.1;port=13306";   # XXX over ssh

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	dpavlin	191	package Reblog::Schema;
2
3			use Fey::ORM::Schema;
4
5	dpavlin	621	my $dsn = __PACKAGE__->config( __PACKAGE__ )->{dsn}; # FIXME yaaaack
6	dpavlin	191	my $dsn = "DBI:mysql:database=reblog";
7			$dsn .= ";host=127.0.0.1;port=13306"; # XXX over ssh
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;