1 |
package Reblog::Schema; |
2 |
|
3 |
use Fey::ORM::Schema; |
4 |
|
5 |
my $dsn = __PACKAGE__->config( __PACKAGE__ )->{dsn}; # FIXME yaaaack |
6 |
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; |