summaryrefslogtreecommitdiff
path: root/lib/Net/HTTP/Console/Dispatcher/Set.pm
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-06-08 17:30:55 +0200
committerfranck cuny <franck@lumberjaph.net>2010-06-08 17:33:00 +0200
commit2bb154b2b3bbe819c98a01d9d43f2183e6389401 (patch)
tree1a304667863e5feb12c543dfbb72a579e88901c9 /lib/Net/HTTP/Console/Dispatcher/Set.pm
parentmove code to appropriate role (diff)
downloadnet-http-console-2bb154b2b3bbe819c98a01d9d43f2183e6389401.tar.gz
add dispatcher for viewing content; update help
Diffstat (limited to 'lib/Net/HTTP/Console/Dispatcher/Set.pm')
-rw-r--r--lib/Net/HTTP/Console/Dispatcher/Set.pm34
1 files changed, 16 insertions, 18 deletions
diff --git a/lib/Net/HTTP/Console/Dispatcher/Set.pm b/lib/Net/HTTP/Console/Dispatcher/Set.pm
index 9f23447..f97474b 100644
--- a/lib/Net/HTTP/Console/Dispatcher/Set.pm
+++ b/lib/Net/HTTP/Console/Dispatcher/Set.pm
@@ -5,24 +5,22 @@ 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(.*))?$/;
+ (my $command, my $type, my $key, my $value) =
+ $input =~ /^([\w_]+)(?:\s([\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();
+ if ($command eq 'set') {
+ $self->_set_header($key, $value) if $type eq 'header';
+ }elsif($command eq 'unset') {
+ $self->_unset_header($key) if $type eq 'header';
}
+
+ # elsif ($command eq 'show_defined_headers') {
+ # $self->_show_defined_headers();
+ # }
}
method pattern($input) {
- $input =~ /(un)?set_header|show_defined_headers/
- ? return $input
- : return 0;
+ $input =~ /^(un)?set/ ? return $input : return 0;
}
method _set_header($header, $value) {
@@ -35,11 +33,11 @@ class Net::HTTP::Console::Dispatcher::Set with Net::HTTP::Console::Dispatcher {
print "header $header unset\n";
}
- method _show_defined_headers {
- foreach ($self->application->all_headers) {
- print $_->[0].": ".$_->[1]."\n";
- }
- }
+ # method _show_defined_headers {
+ # foreach ($self->application->all_headers) {
+ # print $_->[0].": ".$_->[1]."\n";
+ # }
+ # }
}
1;