Changeset 22312 for lang/perl/DBIx-Class-TimeStamp-Auto

Timestamp:

10/29/08 14:15:07 (5 years ago)

Author:

kamipo

Message:

lang/perl/DBIx-Class-TimeStamp?-Auto: deleted unnecessity create method hook

Files:

• lang/perl/DBIx-Class-TimeStamp-Auto/lib/DBIx/Class/TimeStamp/Auto.pm (modified) (3 diffs)

lang/perl/DBIx-Class-TimeStamp-Auto/lib/DBIx/Class/TimeStamp/Auto.pm

@@ -1 +1 @@
 package DBIx::Class::TimeStamp::Auto;
-
 use strict;
 use warnings;
@@ -34 +33 @@
 __PACKAGE__->mk_classdata(timestamp_class => 'DBIx::Class::TimeStamp::Auto');
 
-before create => sub {
-    my ($self, $attrs) = @_;
-
-    return if ref $attrs ne 'HASH';
-
-    my $now;
-    my $timestamp_class = $self->timestamp_class;
-
-    for (
-        @{$timestamp_class->auto_create_datetime_columns},
-        @{$timestamp_class->auto_update_datetime_columns}
-    ) {
-        $attrs->{$_} = $now ||= $timestamp_class->get_current_datetime
-            if !defined $attrs->{$_} and $self->is_inflate_datetime_column($_);
-    }
-};
-
 before update => sub {
     my ($self, $attrs) = @_;
@@ -59 +41 @@
     my $timestamp_class = $self->timestamp_class;
 
-    for (
-        @{$timestamp_class->auto_update_datetime_columns}
-    ) {
+    for (@{$timestamp_class->auto_update_datetime_columns}) {
         $attrs->{$_} = $now ||= $timestamp_class->get_current_datetime
             if !defined $attrs->{$_} and $self->is_inflate_datetime_column($_);