diff options
Diffstat (limited to 'lib/Net/HTTP/Console/Dispatcher/View.pm')
| -rw-r--r-- | lib/Net/HTTP/Console/Dispatcher/View.pm | 12 |
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]); } } } |
