Changeset 8016 for lang/perl/App-MadEye

Timestamp:

03/17/08 11:57:59 (8 months ago)

Author:

tokuhirom

Message:

- Worker::Simple: added schema
- Worker::Simple: added docs.
- Worker::Simple: timeout is now configurable.

Files:

• lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Worker/Simple.pm (modified) (3 diffs)

lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Worker/Simple.pm

@@ -2 +2 @@
 use strict;
 use warnings;
-use base qw/Class::Component::Plugin/;
+use base qw/App::MadEye::Plugin::Base/;
 use App::MadEye::Util;
 use Params::Validate;
-
-our $TIMEOUT = 60;  # TODO: configurable
 
 sub run_job :Method {
@@ -13 +11 @@
     $context->log( debug => "watching $args->{target} by $args->{plugin}" );
 
-    timeout $TIMEOUT, "watching $args->{target} $args->{plugin}", sub {
+    my $timeout = $self->config->{config}->{task_timeout} or die "missing task_timeout";
+    timeout $timeout, "watching $args->{target} $args->{plugin}", sub {
         if ( my $message = $args->{plugin}->is_dead( $args->{target} ) ) {
             $context->add_result(
@@ -27 +26 @@
 
 1;
+__END__
 
+=head1 NAME
+
+App::MadEye::Plugin::Worker::Simple - simple worker
+
+=head1 SCHEMA
+
+    type: map
+    mapping:
+        task_timeout:
+            required: yes
+            type: int
+
+=head1 SEE ALSO
+
+L<App::MadEye>