summaryrefslogtreecommitdiff
path: root/lib/Net/HTTP/Console/Dispatcher/View.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Net/HTTP/Console/Dispatcher/View.pm')
-rw-r--r--lib/Net/HTTP/Console/Dispatcher/View.pm12
1 files changed, 7 insertions, 5 deletions
diff --git a/lib/Net/HTTP/Console/Dispatcher/View.pm b/lib/Net/HTTP/Console/Dispatcher/View.pm
index 9d623d7..bfc50f0 100644
--- a/lib/Net/HTTP/Console/Dispatcher/View.pm
+++ b/lib/Net/HTTP/Console/Dispatcher/View.pm
@@ -12,12 +12,14 @@ class Net::HTTP::Console::Dispatcher::View with Net::HTTP::Console::Dispatcher {
(my $key) = $input =~ /^show ([\w]+)/;
if ($key eq 'headers') {
- $self->application->_show_last_headers
- }elsif ($key eq 'content') {
- $self->application->_show_last_content
- }elsif ($key eq 'defined_headers') {
+ $self->application->_show_last_headers;
+ }
+ elsif ($key eq 'content') {
+ $self->application->_show_last_content;
+ }
+ elsif ($key eq 'defined_headers') {
foreach ($self->application->all_headers) {
- print $_->[0].': '.$_->[1]."\n";
+ $self->application->message( $_->[0] . ': ' . $_->[1]);
}
}
}