/[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 35 by dpavlin, Mon Jun 30 07:12:56 2008 UTC revision 55 by dpavlin, Sat Jul 5 19:00:10 2008 UTC
# Line 19  warn "Database $dsn schema cache $schema Line 19  warn "Database $dsn schema cache $schema
19  my $source = Fey::DBIManager::Source->new( dsn => $dsn );  my $source = Fey::DBIManager::Source->new( dsn => $dsn );
20    
21  my $schema;  my $schema;
22  if ( -e $schema_file ) {  if ( 0 ) { # FIXME
23    #if ( -e $schema_file ) {
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  __PACKAGE__->DBIManager()->add_source($source);  __PACKAGE__->DBIManager()->add_source($source);
33    
34    warn "loaded.";
35    
36    1;
Legend:
Removed from v.35  
changed lines
  Added in v.55
  ViewVC Help
Powered by ViewVC 1.1.26