diff options
author | franck cuny <franck@lumberjaph.net> | 2010-06-08 15:22:36 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-06-08 15:22:36 +0200 |
commit | 78fcbf54a4305e1ee6c3a105f91af40c7ea0a62a (patch) | |
tree | c4eb6cec29a92076c2f6fc47ca318cbe59f5e0ba /lib/Net/HTTP/Console/Role/HTTP.pm | |
parent | update regex; modify http methods; .. (diff) | |
download | net-http-console-78fcbf54a4305e1ee6c3a105f91af40c7ea0a62a.tar.gz |
switch to MX::Declare; rename some roles and dispatcher
Diffstat (limited to 'lib/Net/HTTP/Console/Role/HTTP.pm')
-rw-r--r-- | lib/Net/HTTP/Console/Role/HTTP.pm | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/lib/Net/HTTP/Console/Role/HTTP.pm b/lib/Net/HTTP/Console/Role/HTTP.pm deleted file mode 100644 index 292de40..0000000 --- a/lib/Net/HTTP/Console/Role/HTTP.pm +++ /dev/null @@ -1,41 +0,0 @@ -package Net::HTTP::Console::Role::HTTP; - -use Moose::Role; - -has _last_http_response => ( - is => 'rw', - isa => 'Object', - clearer => '_clear_last_http_response', -); -has _last_http_content => ( - is => 'rw', - isa => 'Str', - clearer => '_clear_last_http_content', -); -has _json => ( - is => 'rw', - isa => 'Object', - lazy => 1, - default => sub { JSON->new; }, -); - -sub _show_last_content { - my $self = shift; - print $self->_last_http_content; -} - -sub _show_last_headers { - my $self = shift; - foreach my $k (keys %{$self->_last_http_response->headers}) { - print "$k: ".$self->_last_http_response->header($k)."\n"; - } -} - -sub _set_and_show { - my ($self, $content, $response) = @_; - $self->_last_http_content($self->_json->pretty->encode($content)); - $self->_last_http_response($response); - $self->_show_last_content; -} - -1; |