lib/Strix/Schema.pm

package Strix::Schema;

use Fey::DBIManager;
use Fey::DBIManager::Source;
use Fey::Loader;
use Fey::ORM::Schema;

use Storable;
use Data::Dump qw/dump/;

my $schema_file = 'var/schema.storable';

my $source = Fey::DBIManager::Source->new( dsn => 'dbi:Pg:dbname=new' );

my $schema;
if ( -e $schema_file ) {
        $schema = retrieve $schema_file or die "can't read schema from $schema_file: $!";
} else {
        $schema= Fey::Loader->new( dbh => $source->dbh() )->make_schema();
        store $schema, $schema_file or warn "can't store schema into $schema_file: $!";
}

has_schema $schema;

__PACKAGE__->DBIManager()->add_source($source);
1	dpavlin	2	package Strix::Schema;
2
3			use Fey::DBIManager;
4			use Fey::DBIManager::Source;
5			use Fey::Loader;
6			use Fey::ORM::Schema;
7
8	dpavlin	15	use Storable;
9			use Data::Dump qw/dump/;
10
11			my $schema_file = 'var/schema.storable';
12
13	dpavlin	12	my $source = Fey::DBIManager::Source->new( dsn => 'dbi:Pg:dbname=new' );
14	dpavlin	2
15	dpavlin	15	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	dpavlin	2
23			has_schema $schema;
24
25			__PACKAGE__->DBIManager()->add_source($source);