From 954976ce006715b249088bfc2314ab2afb571a1e Mon Sep 17 00:00:00 2001 From: franck cuny Date: Wed, 15 Sep 2010 15:21:24 +0200 Subject: remove useless files --- lib/Net/HTTP/Spore/Middleware/Test/Response.pm | 28 -------------------------- 1 file changed, 28 deletions(-) delete mode 100644 lib/Net/HTTP/Spore/Middleware/Test/Response.pm (limited to 'lib/Net/HTTP/Spore/Middleware/Test') diff --git a/lib/Net/HTTP/Spore/Middleware/Test/Response.pm b/lib/Net/HTTP/Spore/Middleware/Test/Response.pm deleted file mode 100644 index ca216c5..0000000 --- a/lib/Net/HTTP/Spore/Middleware/Test/Response.pm +++ /dev/null @@ -1,28 +0,0 @@ -package Net::HTTP::Spore::Middleware::Test::Response; - -use Moose; -extends 'Net::HTTP::Spore::Middleware'; - -has status => ( isa => 'Int', is => 'ro', lazy => 1, default => 200 ); -has headers => ( isa => 'ArrayRef', is => 'ro', default => sub { [] } ); -has callback => ( - isa => 'CodeRef', - is => 'ro', - lazy => 1, - default => sub { - sub { - my ( $self, $req ) = @_; - $req->new_response( $self->status, $self->headers, $self->body, ); - } - } -); - -has body => - ( isa => 'HashRef', is => 'ro', lazy => 1, default => sub { { foo => 1 } } ); - -sub call { - my ( $self, $req ) = @_; - $self->callback->($self, $req); -} - -1; -- cgit v1.2.3