summaryrefslogtreecommitdiff
path: root/lib/Net/HTTP/Console/Role/HTTP.pm
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/Net/HTTP/Console/Role/HTTP.pm41
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;