5 |
use Fey::Loader; |
use Fey::Loader; |
6 |
use Fey::ORM::Schema; |
use Fey::ORM::Schema; |
7 |
|
|
8 |
|
use Storable; |
9 |
|
use Data::Dump qw/dump/; |
10 |
|
|
11 |
|
my $schema_file = 'var/schema.storable'; |
12 |
|
|
13 |
my $source = Fey::DBIManager::Source->new( dsn => 'dbi:Pg:dbname=new' ); |
my $source = Fey::DBIManager::Source->new( dsn => 'dbi:Pg:dbname=new' ); |
14 |
|
|
15 |
my $schema = Fey::Loader->new( dbh => $source->dbh() )->make_schema(); |
my $schema; |
16 |
|
if ( -e $schema_file ) { |
17 |
|
$schema = retrieve $schema_file or die "can't read schema from $schema_file: $!"; |
18 |
|
} else { |
19 |
|
$schema= Fey::Loader->new( dbh => $source->dbh() )->make_schema(); |
20 |
|
store $schema, $schema_file or warn "can't store schema into $schema_file: $!"; |
21 |
|
} |
22 |
|
|
23 |
has_schema $schema; |
has_schema $schema; |
24 |
|
|