switch to MX::Declare; rename some roles and dispatcher

1 files changed, 45 insertions, 0 deletions

diff --git a/lib/Net/HTTP/Console/Dispatcher/Set.pm b/lib/Net/HTTP/Console/Dispatcher/Set.pm
new file mode 100644
index 0000000..9f23447
--- /dev/null
+++ b/lib/Net/HTTP/Console/Dispatcher/Set.pm
@@ -0,0 +1,45 @@
+package Net::HTTP::Console::Dispatcher::Set;
+
+use MooseX::Declare;
+
+class Net::HTTP::Console::Dispatcher::Set with Net::HTTP::Console::Dispatcher {
+
+    method dispatch($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();
+        }
+    }
+
+    method pattern($input) {
+        $input =~ /(un)?set_header|show_defined_headers/
+          ? return $input
+          : return 0;
+    }
+
+    method _set_header($header, $value) {
+        $self->application->set_header($header, $value);
+        print "header $header set to $value\n";
+    }
+
+    method _unset_header($header) {
+        $self->application->delete_header($header);
+        print "header $header unset\n";
+    }
+
+    method _show_defined_headers {
+        foreach ($self->application->all_headers) {
+            print $_->[0].": ".$_->[1]."\n";
+        }
+    }
+}
+
+1;