Changeset 14629 for lang/perl/App-MadEye

Timestamp:

06/26/08 11:51:51 (5 months ago)

Author:

tokuhirom

Message:

be simple

Location:

lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin

Files:

• Check/Flock.pm (modified) (2 diffs)
• Check/Network.pm (modified) (1 diff)
• Check/User.pm (modified) (1 diff)
• Notify/Debug.pm (modified) (1 diff)
• Notify/Email.pm (modified) (1 diff)
• Notify/IKC.pm (modified) (1 diff)
• Worker/Gearman.pm (modified) (2 diffs)

lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Check/Flock.pm

@@ -6 +6 @@
 use Fcntl ":flock";
 
-sub check : Hook('check') {
+sub check : Hook {
     my ($self, $context, $args) = @_;
 
@@ -14 +14 @@
 }
 
-sub release_lock : Hook('after_run_jobs') {
+sub after_run_jobs : Hook {
     my ($self, $context, $args) = @_;
 

lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Check/Network.pm

@@ -5 +5 @@
 use LWP::UserAgent;
 
-sub check : Hook('check') {
+sub check : Hook {
     my ($self, $context, $args) = @_;
 

lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Check/User.pm

@@ -5 +5 @@
 use POSIX qw(getuid getpwuid);
 
-sub check :Hook('check') {
+sub check :Hook {
     my ($self, $context, $args) = @_;
 

lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Notify/Debug.pm

@@ -5 +5 @@
 use Data::Dumper;
 
-sub notify :Hook('notify') {
+sub notify :Hook {
     my ($self, $context, $args) = @_;
 

lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Notify/Email.pm

@@ -7 +7 @@
 use DateTime;
 
-sub notify : Hook('notify') {
+sub notify : Hook {
     my ($self, $context, $args) = @_;
 

lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Notify/IKC.pm

@@ -6 +6 @@
 use POE::Component::IKC::ClientLite;
 
-sub notify :Hook('notify') {
+sub notify :Hook {
     my ($self, $context, $args) = @_;
 

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

@@ -30 +30 @@
 }
 
-sub run_workers : Hook('before_run_jobs') {
+sub before_run_jobs : Hook {
     my ($self, $context) = @_;
 
@@ -94 +94 @@
 }
 
-sub after_run_jobs : Hook('after_run_jobs') {
+sub after_run_jobs : Hook {
     my ($self, $context, $args) = @_;