Changeset 4970 for lang/perl/Moxy/trunk/lib/Moxy.pm

Timestamp:

01/19/08 22:30:13 (5 years ago)

Author:

tokuhirom

Message:

プラグインの仕様を変更。プラグインから HTTP::Proxy に依存した動作をとりのぞいた。

Files:

• lang/perl/Moxy/trunk/lib/Moxy.pm (modified) (2 diffs)

lang/perl/Moxy/trunk/lib/Moxy.pm

@@ -16 +16 @@
 use Carp;
 use Log::Dispatch;
+use Scalar::Util qw/blessed/;
 my $TERM_ANSICOLOR_ENABLED = eval { use Term::ANSIColor; 1; };
 
@@ -174 +175 @@
 }
 
+sub run_hook_and_get_response {
+    my ($self, $hook, @args) = @_;
+
+    $self->log(debug => "Run hook and get response: $hook");
+    for my $action (@{$self->{hooks}->{$hook}}) {
+        my $response = $action->($self, @args);
+        return $response if blessed $response && $response->isa('HTTP::Response');
+    }
+    return; # not finished yet
+}
+
 sub get_hooks {
     my ($self, $hook) = @_;