lib/Net/HTTP/Console/Dispatcher/View.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

package Net::HTTP::Console::Dispatcher::View;

use MooseX::Declare;

class Net::HTTP::Console::Dispatcher::View with Net::HTTP::Console::Dispatcher {

    method pattern ($input) {
        $input =~ /^show/ ? return $input : return 0;
    }

    method dispatch ($input) {
        (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') {
            foreach ($self->application->all_headers) {
                print $_->[0] . ': ' . $_->[1] . "\n";
            }
        }
    }
}

1;