diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-09-15 15:21:24 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-09-15 15:21:24 +0200 |
| commit | 954976ce006715b249088bfc2314ab2afb571a1e (patch) | |
| tree | b5aa29e63dfee3121df81c0ab0ef01d231b4357a /lib/Net/HTTP/Spore/Middleware/Test | |
| parent | foo (diff) | |
| download | net-http-spore-954976ce006715b249088bfc2314ab2afb571a1e.tar.gz | |
remove useless files
Diffstat (limited to 'lib/Net/HTTP/Spore/Middleware/Test')
| -rw-r--r-- | lib/Net/HTTP/Spore/Middleware/Test/Response.pm | 28 |
1 files changed, 0 insertions, 28 deletions
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; |
