summaryrefslogtreecommitdiff
path: root/lib/Net/HTTP/Console/Dispatcher/Set.pm
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/Net/HTTP/Console/Dispatcher/Set.pm14
1 files changed, 2 insertions, 12 deletions
diff --git a/lib/Net/HTTP/Console/Dispatcher/Set.pm b/lib/Net/HTTP/Console/Dispatcher/Set.pm
index f97474b..d514f37 100644
--- a/lib/Net/HTTP/Console/Dispatcher/Set.pm
+++ b/lib/Net/HTTP/Console/Dispatcher/Set.pm
@@ -13,10 +13,6 @@ class Net::HTTP::Console::Dispatcher::Set with Net::HTTP::Console::Dispatcher {
}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) {
@@ -25,19 +21,13 @@ class Net::HTTP::Console::Dispatcher::Set with Net::HTTP::Console::Dispatcher {
method _set_header($header, $value) {
$self->application->set_header($header, $value);
- print "header $header set to $value\n";
+ $self->application->print("header $header set to $value");
}
method _unset_header($header) {
$self->application->delete_header($header);
- print "header $header unset\n";
+ $self->application->print("header $header unset");
}
-
- # method _show_defined_headers {
- # foreach ($self->application->all_headers) {
- # print $_->[0].": ".$_->[1]."\n";
- # }
- # }
}
1;