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/Dispatcher/Headers.pm | 49 ------------------------------
 1 file changed, 49 deletions(-)
 delete mode 100644 lib/Net/HTTP/Console/Dispatcher/Headers.pm

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

diff --git a/lib/Net/HTTP/Console/Dispatcher/Headers.pm b/lib/Net/HTTP/Console/Dispatcher/Headers.pm
deleted file mode 100644
index 4c29098..0000000
--- a/lib/Net/HTTP/Console/Dispatcher/Headers.pm
+++ /dev/null
@@ -1,49 +0,0 @@
-package Net::HTTP::Console::Dispatcher::Headers;
-
-use Moose;
-with qw/Net::HTTP::Console::Dispatcher/;
-
-sub dispatch {
-    my ($self, $input) = @_;
-
-    (my $command, my $header, my $value) =
-      $input =~ /^([\w_]+)(?:\s([\w-]+))?(?:\s(.*))?$/;
-
-    if ($command eq 'unset_header') {
-        $self->_unset_header($header);
-    }
-    elsif ($command eq 'set_header') {
-        $self->_set_header($header, $value);
-    }
-    elsif ($command eq 'show_defined_headers') {
-        $self->_show_defined_headers();
-    }
-}
-
-sub pattern {
-    my ($self, $input) = @_;
-    $input =~ /(un)?set_header|show_defined_headers/
-      ? return $input
-      : return 0;
-}
-
-sub _unset_header {
-    my ($self, $header) = @_;
-    $self->application->delete_header($header);
-    print "header $header unset\n";
-}
-
-sub _set_header {
-    my ($self, $header, $value) = @_;
-    $self->application->set_header($header, $value);
-    print "header $header set to $value\n";
-}
-
-sub _show_defined_headers{
-    my $self = shift;
-    foreach ($self->application->all_headers) {
-        print $_->[0].": ".$_->[1]."\n";
-    }
-}
-
-1;
-- 
cgit v1.2.3