--- trunk/lib/Strix/Schema.pm	2008/07/11 22:54:42	101
+++ trunk/lib/Strix/Schema.pm	2008/07/11 23:01:54	102
@@ -1,31 +1,12 @@
 package Strix::Schema;
 
-use Fey::DBIManager;
-use Fey::DBIManager::Source;
-use Fey::Loader;
 use Fey::ORM::Schema;
-
-use Storable;
-use Data::Dump qw/dump/;
-use URI::Escape;
+use Frey::Schema;
 
 my $dsn = 'dbi:Pg:dbname=new';
 $dsn = 'dbi:SQLite:dbname=./var/strix.sqlite';
 
-my $schema_file = 'var/schema.' . uri_escape( $dsn );
-
-warn "Database $dsn schema cache $schema_file\n";
-
-my $source = Fey::DBIManager::Source->new( dsn => $dsn );
-
-my $schema;
-#if ( 0 ) { # FIXME
-if ( -e $schema_file ) {
-	$schema = retrieve $schema_file or die "can't read schema from $schema_file: $!";
-} else {
-	$schema = Fey::Loader->new( dbh => $source->dbh() )->make_schema();
-	store $schema, $schema_file or warn "can't store schema into $schema_file: $!";
-}
+my ( $schema, $source ) = Frey::Schema->schema_source( $dsn );
 
 has_schema $schema;
 
@@ -33,6 +14,4 @@
 
 __PACKAGE__->DBIManager()->add_source($source);
 
-warn "loaded.";
-
 1;