lib/Reblog/Schema.pm

package Reblog::Schema;

use Fey::ORM::Schema;

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			my $dsn = "DBI:mysql:database=reblog";
6			$dsn .= ";host=127.0.0.1;port=13306"; # XXX over ssh
7
8			my ( $schema, $source ) = Frey::Schema->schema_source( $dsn );
9
10			has_schema $schema;
11
12			# fixup MySQL schema (hooray!)
13
14			$schema->add_foreign_key(
15			Fey::FK->new(
16			source_columns => [ $schema->table('feeds')->column('id') ],
17			target_columns => [ $schema->table('items')->column('feed_id') ],
18			)
19			);
20
21			__PACKAGE__->DBIManager()->add_source($source);
22
23			#$source->dbh->do( qq{ set client_encoding = 'utf-8' } ) if $dsn =~ /Pg/;
24
25			warn "## dsn $dsn";
26
27			1;