Changeset 18353 for lang/perl/TheSchwartz-Simple/trunk/lib/TheSchwartz/Simple/Job.pm

Timestamp:

08/28/08 06:20:29 (4 months ago)

Author:

miyagawa

Message:

move the default value set in Job->new. Set run_after to the current time.

Files:

• lang/perl/TheSchwartz-Simple/trunk/lib/TheSchwartz/Simple/Job.pm (modified) (2 diffs)

lang/perl/TheSchwartz-Simple/trunk/lib/TheSchwartz/Simple/Job.pm

@@ -4 +4 @@
 sub new_from_array {
     my($class, $funcname, $arg) = @_;
-    bless {
+    $class->new(
         funcname => $funcname,
         arg      => $arg,
-    }, $class;
+    );
 }
 
@@ -13 +13 @@
     my $class = shift;
     my %param = ref $_[0] ? %{$_[0]} : @_;
-    bless \%param, $class;
+    my $self = bless \%param, $class;
+
+    $self->run_after( time ) unless defined $self->run_after;
+    $self->grabbed_until( 0) unless defined $self->grabbed_until;
+
+    $self;
 }