X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FJournal%2FDB%2FChangeSet.pm;h=d631066385c96d8e472ac127708d79ac69aaa7ca;hb=5b64dcdc3bb8d13b3cd896e70a43871eeb77db07;hp=05bb24833933dc008ce10519528b9c4eb19bb121;hpb=e0a0e1929b85710266f8ddaaadbbaea81b50bf2a;p=dbsrgits%2FDBIx-Class-Journal.git

diff --git a/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm b/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm
index 05bb248..d631066 100644
--- a/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm
+++ b/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm
@@ -2,44 +2,48 @@ package DBIx::Class::Schema::Journal::DB::ChangeSet;
 
 use base 'DBIx::Class::Core';
 
-__PACKAGE__->load_components(qw/InflateColumn::DateTime/);
-__PACKAGE__->table('changeset');
-
-__PACKAGE__->add_columns(
-	ID => {
-		data_type => 'integer',
-		is_auto_increment => 1,
-		is_primary_key => 1,
-		is_nullable => 0,
-	},
-	user_id => {
-		data_type => 'integer',
-		is_nullable => 1,
-		is_foreign_key => 1,
-	},
-	set_date => {
-		data_type => 'timestamp',
-		is_nullable => 0,
-	},
-	session_id => {
-		data_type => 'varchar',
-		size => 255,
-		is_nullable => 1,
-	},
-);
+sub journal_define_table {
+    my ( $class, $schema_class, $prefix ) = @_;
+    
+    $class->load_components(qw/InflateColumn::DateTime/);
+    $class->table($prefix . 'changeset');
+    
+    $class->add_columns(
+    	ID => {
+    		data_type => 'integer',
+    		is_auto_increment => 1,
+    		is_primary_key => 1,
+    		is_nullable => 0,
+    	},
+    	user_id => {
+    		data_type => 'integer',
+    		is_nullable => 1,
+    		is_foreign_key => 1,
+    	},
+    	set_date => {
+    		data_type => 'timestamp',
+    		is_nullable => 0,
+    	},
+    	session_id => {
+    		data_type => 'varchar',
+    		size => 255,
+    		is_nullable => 1,
+    	},
+    );
+    
+    $class->set_primary_key('ID');
+}
 
 sub new {
     my $self = shift->next::method(@_);
-	 # I think we should not do the following and
-	 # instead use DBIx::Class::TimeStamp.  If I
-	 # can think of a good way (passing a version on
-	 # import?) to do it and retain backcompat I will.
-	 #
-	 # --fREW, 01-27-2010
+    # I think we should not do the following and
+    # instead use DBIx::Class::TimeStamp.  If I
+    # can think of a good way (passing a version on
+    # import?) to do it and retain backcompat I will.
+    #
+    # --fREW, 01-27-2010
     $self->set_date(gmtime);
     return $self;
 }
 
-__PACKAGE__->set_primary_key('ID');
-
 1;