RT56175: allow tables to have a prefix

[dbsrgits/DBIx-Class-Journal.git] / lib / DBIx / Class / Schema / Journal / DB / ChangeSet.pm

diff --git a/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm b/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm
index 05bb248..d631066 100644 (file)
--- 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;