--- trunk/lib/Strix/Schema.pm	2008/06/29 00:36:08	14
+++ trunk/lib/Strix/Schema.pm	2008/06/29 00:49:50	15
@@ -5,9 +5,20 @@
 use Fey::Loader;
 use Fey::ORM::Schema;
 
+use Storable;
+use Data::Dump qw/dump/;
+
+my $schema_file = 'var/schema.storable';
+
 my $source = Fey::DBIManager::Source->new( dsn => 'dbi:Pg:dbname=new' );
 
-my $schema = Fey::Loader->new( dbh => $source->dbh() )->make_schema();
+my $schema;
+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: $!";
+}
 
 has_schema $schema;