Changeset 659 for lang/perl/Gopper

Timestamp:

10/24/07 05:47:05 (6 years ago)

Author:

yappo

Message:

lang/perl/Gopper: add Handler attribute

Location:

lang/perl/Gopper/trunk/lib

Files:

• Gopper.pm (modified) (1 diff)
• Gopper/Attribute (added)
• Gopper/Attribute/Handler.pm (added)
• Gopper/Plugin/Handler.pm (modified) (1 diff)
• Gopper/Plugin/Handler/Static.pm (modified) (1 diff)

lang/perl/Gopper/trunk/lib/Gopper.pm

@@ -63 +63 @@
     my($self, $stash) = @_;
     return RC_FORBIDDEN unless my $handler = $stash->request->handler;
-    return $handler->handler($self, $stash) || RC_FORBIDDEN;
+    my $handler_method = $handler->handler_method;
+    return $handler->$handler_method($self, $stash) || RC_FORBIDDEN;
 }
 

lang/perl/Gopper/trunk/lib/Gopper/Plugin/Handler.pm

@@ -6 +6 @@
 use base 'Gopper::Plugin';
 
+sub handler_method {
+    my $self = shift;
+    $self->{handler_method} = defined $_[0] ? $_[0] : $self->{handler_method};
+}
+
 1;

lang/perl/Gopper/trunk/lib/Gopper/Plugin/Handler/Static.pm

@@ -30 +30 @@
 }
 
-sub handler {
+sub send_context : Handler {
     my($self, $c, $stash) = @_;