Changeset 11836

Timestamp:

05/18/08 02:11:44 (5 years ago)

Author:

yappo

Message:

add Interface::Test

Location:

lang/perl/HTTP-Engine/trunk

Files:

• lib/HTTP/Engine/Interface/Test.pm (copied) (copied from lang/perl/HTTP-Engine/branches/class-component/lib/HTTP/Engine/Interface/Test.pm) (2 diffs)
• t/31_interface_test.t (added)

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

@@ -1 +1 @@
 package HTTP::Engine::Interface::Test;
-use strict;
-use warnings;
-use base 'HTTP::Engine::Plugin';
-use HTTP::Engine::Role;
+use Moose;
 with 'HTTP::Engine::Role::Interface';
 
@@ -11 +8 @@
 
 sub run {
-    my($senf, $c, $request, $env) = @_;
+    my($self, $request, $env) = @_;
     $env ||= \%ENV;
 
     my $cgi = HTTP::Request::AsCGI->new( $request, %$env )->setup;
 
-    $c->handle_request;
+    $self->handle_request;
 
     $cgi->restore->response;