24 |
$schema = retrieve $schema_file or die "can't read schema from $schema_file: $!"; |
$schema = retrieve $schema_file or die "can't read schema from $schema_file: $!"; |
25 |
} else { |
} else { |
26 |
$schema = Fey::Loader->new( dbh => $source->dbh() )->make_schema(); |
$schema = Fey::Loader->new( dbh => $source->dbh() )->make_schema(); |
27 |
store $schema, $schema_file or warn "can't store schema into $schema_file: $!"; |
# store $schema, $schema_file or warn "can't store schema into $schema_file: $!"; |
28 |
} |
} |
29 |
|
|
30 |
has_schema $schema; |
has_schema $schema; |
31 |
|
|
32 |
|
warn Strix::Schema->SQLFactoryClass(); |
33 |
|
|
34 |
__PACKAGE__->DBIManager()->add_source($source); |
__PACKAGE__->DBIManager()->add_source($source); |
35 |
|
|
36 |
|
warn "loaded."; |
37 |
|
|
38 |
|
1; |