summary refs log tree commit diff
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;