Changeset 8021 for lang/perl/App-MadEye

Timestamp:

03/17/08 12:36:44 (9 months ago)

Author:

tokuhirom

Message:

Plugin::Agent::HTTP: added docs. added schema. change default ua.

Files:

• lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Agent/HTTP.pm (modified) (2 diffs)

lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Agent/HTTP.pm

@@ -12 +12 @@
     my $ua = LWP::UserAgent->new(
         timeout => $TIMEOUT,
-        agent   => $self->config->{config}->{user_agent} || 'App::MadEye',
+        agent   => $self->config->{config}->{user_agent} || "App::MadEye($App::MadEye::VERSION)",
     );
     my $res = $ua->get($url);
@@ -24 +24 @@
 
 1;
+__END__
 
+=head1 NAME
+
+App::MadEye::Plugin::Agent::HTTP - check http.
+
+=head1 SCHEMA
+
+    type: map
+    mapping:
+        target:
+            type: seq
+            required: yes
+            sequence:
+                - type: str
+        timeout:
+            required: yes
+            type: int
+        user_agent:
+            required: no
+            type: str
+
+=head1 AUTHOR
+
+Tokuhiro Matsuno
+
+=head1 SEE ALSO
+
+L<App::MadEye>, L<Gearman::Client>, L<Gearman::Worker>
+