/[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 2 by dpavlin, Sat Jun 28 11:49:35 2008 UTC revision 53 by dpavlin, Sat Jul 5 15:19:55 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  my $source = Fey::DBIManager::Source->new( dsn => 'dbi:Pg:dbname=intwww' );  use Storable;
9    use Data::Dump qw/dump/;
10    use URI::Escape;
11    
12  my $schema = Fey::Loader->new( dbh => $source->dbh() )->make_schema();  my $dsn = 'dbi:Pg:dbname=new';
13    $dsn = 'dbi:SQLite:dbname=./var/strix.sqlite';
14    
15    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;
22    if ( 0 ) { # FIXME
23    #if ( -e $schema_file ) {
24            $schema = retrieve $schema_file or die "can't read schema from $schema_file: $!";
25    } else {
26            $schema = Fey::Loader->new( dbh => $source->dbh() )->make_schema();
27            store $schema, $schema_file or warn "can't store schema into $schema_file: $!";
28    }
29    
30  has_schema $schema;  has_schema $schema;
31    
Legend:
Removed from v.2  
changed lines
  Added in v.53
  ViewVC Help
Powered by ViewVC 1.1.26