[Bast-commits] r7802 - in DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class: . Schema Schema/Journal/DB

frew at dev.catalyst.perl.org frew at dev.catalyst.perl.org
Tue Oct 20 16:11:07 GMT 2009


Author: frew
Date: 2009-10-20 16:11:06 +0000 (Tue, 20 Oct 2009)
New Revision: 7802

Modified:
   DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Journal.pm
   DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal.pm
   DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal/DB/ChangeLog.pm
   DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm
Log:
get rid of commented out code

Modified: DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Journal.pm
===================================================================
--- DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Journal.pm	2009-10-20 16:03:13 UTC (rev 7801)
+++ DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Journal.pm	2009-10-20 16:11:06 UTC (rev 7802)
@@ -9,15 +9,6 @@
 
 ## On create/insert, add new entry to AuditLog
 
-# sub new
-# {
-#     my ($class, $attrs, @rest) = @_;
-
-#     $class->result_source->schema->_journal_schema->current_user(delete $attrs->{user_id});
-
-#     $class->next::method($attrs, @rest);
-# }
-
 sub _journal_schema {
     my $self = shift;
     $self->result_source->schema->_journal_schema;
@@ -69,14 +60,14 @@
 
 ## On update, copy previous row's contents to AuditHistory
 
-sub update 
+sub update
 {
     my ($self, $upd, @rest) = @_;
     $self->journal_log_update($upd, @rest);
     $self->next::method($upd, @rest);
 }
 
-sub journal_log_update 
+sub journal_log_update
 {
     my ($self, $upd, @rest) = @_;
 
@@ -135,7 +126,7 @@
 
 =head2 TABLES
 
-The journal schema contains a number of tables. 
+The journal schema contains a number of tables.
 
 =over
 

Modified: DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal/DB/ChangeLog.pm
===================================================================
--- DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal/DB/ChangeLog.pm	2009-10-20 16:03:13 UTC (rev 7801)
+++ DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal/DB/ChangeLog.pm	2009-10-20 16:11:06 UTC (rev 7802)
@@ -2,7 +2,6 @@
 
 use base 'DBIx::Class';
 
-# __PACKAGE__->load_components(qw/Core/);
 __PACKAGE__->load_components(qw/Ordered Core/);
 __PACKAGE__->table('changelog');
 

Modified: DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm
===================================================================
--- DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm	2009-10-20 16:03:13 UTC (rev 7801)
+++ DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm	2009-10-20 16:11:06 UTC (rev 7802)
@@ -30,7 +30,7 @@
 
 sub new {
     my $self = shift->next::method(@_);
-    $self->set_date(gmtime); # DateTime->now);
+    $self->set_date(gmtime);
     return $self;
 }
 

Modified: DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal.pm
===================================================================
--- DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal.pm	2009-10-20 16:03:13 UTC (rev 7801)
+++ DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Schema/Journal.pm	2009-10-20 16:11:06 UTC (rev 7802)
@@ -19,27 +19,7 @@
 use strict;
 use warnings;
 
-# sub throw_exception
-# {
-# }
 
-# sub exception_action
-# {
-#     my $self = shift;
-# #    print STDERR Carp::longmess;
-    
-#     $self->next::method(@_);
-# }
-
-# sub load_classes
-# {
-#     my $class = shift;
-
-
-#     $class->next::method(@_);
-    
-# }
-
 sub _journal_schema_prototype
 {
     my $self = shift;
@@ -66,7 +46,6 @@
         next unless($j_sources{$s_name});
         $self->create_journal_for($s_name => $proto);
         $self->class($s_name)->load_components($comp);
-#        print STDERR "$s_name :", $self->class($s_name), "\n";
     }
     return $proto;
 }
@@ -76,8 +55,6 @@
     my $self = shift;
     my $schema = $self->next::method(@_);
 
-#   print STDERR join(":", $self->sources), "\n";
-
     my $journal_schema = (ref $self||$self)->_journal_schema_prototype->clone;
 
     if($self->journal_connection)




More information about the Bast-commits mailing list