[Bast-commits] r4663 - trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema

[nothingmuch at dev.catalyst.perl.org]

Author: nothingmuch
Date: 2008-07-29 18:52:24 +0100 (Tue, 29 Jul 2008)
New Revision: 4663

Modified:
   trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm
Log:
work even without journal_user

Modified: trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm
===================================================================
--- trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm	2008-07-28 22:44:21 UTC (rev 4662)
+++ trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm	2008-07-29 17:52:24 UTC (rev 4663)
@@ -75,20 +75,28 @@
 #        print STDERR "$s_name :", $self->class($s_name), "\n";
     }
 
+
+    $self->journal_schema_deploy();
+
     ## Set up relationship between changeset->user_id and this schema's user
-    if(!@{$self->journal_user})
+    if(!@{$self->journal_user || []})
     {
         warn "No Journal User set!";
-        return;
+        return $schema;
     }
 
-    $self->_journal_schema->deploy();
     $self->_journal_schema->class('ChangeSet')->belongs_to('user', @{$self->journal_user});
     $self->_journal_schema->storage->disconnect();
 
     return $schema;
 }
 
+sub journal_schema_deploy
+{
+    my ( $self, @args ) = @_;
+    $self->_journal_schema->deploy( @args );
+}
+
 sub get_audit_log_class_name
 {
     my ($self, $sourcename) = @_;