7 |
|
|
8 |
use Storable; |
use Storable; |
9 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
10 |
|
use URI::Escape; |
11 |
|
|
12 |
my $schema_file = 'var/schema.storable'; |
my $dsn = 'dbi:Pg:dbname=new'; |
13 |
|
$dsn = 'dbi:SQLite:dbname=./var/strix.sqlite'; |
14 |
|
|
15 |
my $source = Fey::DBIManager::Source->new( dsn => 'dbi:Pg:dbname=new' ); |
my $schema_file = 'var/schema.' . uri_escape( $dsn ); |
16 |
|
|
17 |
|
warn "Database $dsn schema cache $schema_file\n"; |
18 |
|
|
19 |
|
my $source = Fey::DBIManager::Source->new( dsn => $dsn ); |
20 |
|
|
21 |
my $schema; |
my $schema; |
22 |
if ( -e $schema_file ) { |
if ( -e $schema_file ) { |