From 78fcbf54a4305e1ee6c3a105f91af40c7ea0a62a Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Tue, 8 Jun 2010 15:22:36 +0200
Subject: switch to MX::Declare; rename some roles and dispatcher

---
 lib/Net/HTTP/Console/Role/HTTP.pm | 41 ---------------------------------------
 1 file changed, 41 deletions(-)
 delete mode 100644 lib/Net/HTTP/Console/Role/HTTP.pm

(limited to 'lib/Net/HTTP/Console/Role/HTTP.pm')

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;
-- 
cgit 1.4.1