/[Frey]/trunk/lib/Strix/Schema.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Strix/Schema.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 12 by dpavlin, Sun Jun 29 00:17:17 2008 UTC revision 15 by dpavlin, Sun Jun 29 00:49:50 2008 UTC
# Line 5  use Fey::DBIManager::Source; Line 5  use Fey::DBIManager::Source;
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    
Legend:
Removed from v.12  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.26