Changeset 11128

Timestamp:

05/05/08 00:48:40 (5 years ago)

Author:

yappo

Message:

using Class::Component 0.17 feature

Location:

lang/perl/HTTP-Engine/trunk/lib/HTTP

Files:

• Engine.pm (modified) (1 diff)
• Engine/Plugin/Interface.pm (modified) (13 diffs)
• Engine/Plugin/Interface/Adaptor.pm (modified) (1 diff)
• Engine/Plugin/Interface/FCGI.pm (modified) (1 diff)
• Engine/Plugin/Interface/ServerSimple.pm (modified) (2 diffs)
• Engine/Plugin/Interface/Standalone.pm (modified) (2 diffs)
• Engine/Plugin/Interface/Test.pm (modified) (1 diff)
• Engine/Role (added)
• Engine/Role/Interface.pm (added)

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine.pm

@@ -15 +15 @@
 use HTTP::Engine::Response;
 
-__PACKAGE__->load_components(qw/Plaggerize Autocall::InjectMethod/);
+__PACKAGE__->load_components(qw/Plaggerize Moosenize Autocall::InjectMethod/);
 
 sub new {

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Plugin/Interface.pm

@@ -2 +2 @@
 use strict;
 use warnings;
-use base qw( HTTP::Engine::Plugin Class::Accessor::Fast );
+use base qw( HTTP::Engine::Plugin HTTP::Engine::Role::Interface Class::Accessor::Fast );
 __PACKAGE__->mk_accessors(qw/ read_position read_length /);
 
@@ -17 +17 @@
 use HTTP::Engine::Request::Upload;
 
+
 sub initialize :Hook {
     my($self, $c) = @_;
@@ -23 +24 @@
 }
 
-sub prepare_connection :InterfaceMethod {
+sub prepare_connection {
     my($self, $c) = @_;
 
@@ -37 +38 @@
 }
 
-sub prepare_query_parameters :InterfaceMethod {
+sub prepare_query_parameters {
     my($self, $c) = @_;
     my $query_string = $c->env->{QUERY_STRING};
@@ -52 +53 @@
 }
 
-sub prepare_headers :InterfaceMethod {
+sub prepare_headers {
     my($self, $c) = @_;
 
@@ -63 +64 @@
 }
 
-sub prepare_cookie :InterfaceMethod {
+sub prepare_cookie {
     my($self, $c) = @_;
 
@@ -71 +72 @@
 }
 
-sub prepare_path :InterfaceMethod {
+sub prepare_path {
     my($self, $c) = @_;
 
@@ -108 +109 @@
 }
 
-sub prepare_body :InterfaceMethod {
+sub prepare_body {
     my($self, $c) = @_;
 
@@ -141 +142 @@
 }
 
-sub prepare_body_parameters :InterfaceMethod {
+sub prepare_body_parameters {
     my($self, $c) = @_;
     $c->req->body_parameters($c->req->{_body}->param);
 }
 
-sub prepare_parameters :InterfaceMethod {
+sub prepare_parameters {
     my($self, $c) = @_;
 
@@ -173 +174 @@
 }
 
-sub prepare_uploads :InterfaceMethod {
+sub prepare_uploads {
     my($self, $c) = @_;
 
@@ -201 +202 @@
 
 # output
-sub finalize_cookies :InterfaceMethod {
+sub finalize_cookies {
     my($self, $c) = @_;
 
@@ -223 +224 @@
 }
 
-sub finalize_output_headers :InterfaceMethod {
+sub finalize_output_headers {
     my($self, $c) = @_;
 
@@ -231 +232 @@
 }
 
-sub finalize_output_body :InterfaceMethod {
+sub finalize_output_body {
     my($self, $c) = @_;
     my $body = $c->res->body;

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Plugin/Interface/Adaptor.pm

@@ -11 +11 @@
 }
 
-sub run : Method { $_[0]->adaptee->run(@_) }
+sub run { $_[0]->adaptee->run(@_) }
 
-sub prepare_request : InterfaceMethod { $_[0]->adaptee->prepare_request(@_) }
-sub prepare_connection : InterfaceMethod { $_[0]->adaptee->prepare_connection(@_) }
-sub prepare_query_parameters : InterfaceMethod { $_[0]->adaptee->prepare_query_parameters(@_) }
-sub prepare_headers : InterfaceMethod { $_[0]->adaptee->prepare_headers(@_) }
-sub prepare_cookie : InterfaceMethod { $_[0]->adaptee->prepare_cookie(@_) }
-sub prepare_path : InterfaceMethod { $_[0]->adaptee->prepare_path(@_) }
-sub prepare_body : InterfaceMethod { $_[0]->adaptee->prepare_body(@_) }
-sub prepare_body_parameters : InterfaceMethod { $_[0]->adaptee->prepare_body_parameters(@_) }
-sub prepare_parameters : InterfaceMethod { $_[0]->adaptee->prepare_parameters(@_) }
-sub prepare_uploads : InterfaceMethod { $_[0]->adaptee->prepare_uploads(@_) }
+sub prepare_request { $_[0]->adaptee->prepare_request(@_) }
+sub prepare_connection { $_[0]->adaptee->prepare_connection(@_) }
+sub prepare_query_parameters { $_[0]->adaptee->prepare_query_parameters(@_) }
+sub prepare_headers { $_[0]->adaptee->prepare_headers(@_) }
+sub prepare_cookie { $_[0]->adaptee->prepare_cookie(@_) }
+sub prepare_path { $_[0]->adaptee->prepare_path(@_) }
+sub prepare_body { $_[0]->adaptee->prepare_body(@_) }
+sub prepare_body_parameters { $_[0]->adaptee->prepare_body_parameters(@_) }
+sub prepare_parameters { $_[0]->adaptee->prepare_parameters(@_) }
+sub prepare_uploads { $_[0]->adaptee->prepare_uploads(@_) }
 
-sub finalize_cookies : InterfaceMethod { $_[0]->adaptee->finalize_cookies(@_) }
-sub finalize_output_headers : InterfaceMethod { $_[0]->adaptee->finalize_output_headers(@_) }
-sub finalize_output_body : InterfaceMethod { $_[0]->adaptee->finalize_output_body(@_) }
+sub finalize_cookies { $_[0]->adaptee->finalize_cookies(@_) }
+sub finalize_output_headers { $_[0]->adaptee->finalize_output_headers(@_) }
+sub finalize_output_body { $_[0]->adaptee->finalize_output_body(@_) }
 
 1;

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Plugin/Interface/FCGI.pm

@@ -7 +7 @@
 use FCGI;
 
-sub run :Method {
+sub run {
     my ( $self, $class, $listen, ) = @_;
 

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Plugin/Interface/ServerSimple.pm

@@ -5 +5 @@
 use HTTP::Server::Simple 0.33;
 
-sub run: Method {
+sub run  {
     my ($self, $c) = @_;
     my $port = $self->config->{port} || '80';
@@ -14 +14 @@
 }
 
-sub finalize_output_headers : InterfaceMethod {
+sub finalize_output_headers {
     my ( $self, $c ) = @_;
 

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Plugin/Interface/Standalone.pm

@@ -35 +35 @@
 }
 
-sub finalize_output_headers :InterfaceMethod {
+sub finalize_output_headers {
     my($self, $c) = @_;
 
@@ -48 +48 @@
 }
 
-sub run :Method {
+sub run {
     my($self, $c) = @_;
     my $host = $self->config->{host} || '';

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Plugin/Interface/Test.pm

@@ -6 +6 @@
 use HTTP::Request::AsCGI;
 
-sub run :Method {
+sub run {
     my($senf, $c, $request, $env) = @_;
     $env ||= \%ENV;