lib/Net/HTTP/Console/Dispatcher.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

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

use MooseX::Declare;

role Net::HTTP::Console::Dispatcher {

    has application => (is => 'rw', isa => 'Net::HTTP::Console');

    requires qw/dispatch pattern/;

    around dispatch ($input) {
        if (my $r = $self->pattern($input)) {
            return $self->$orig($r);
        }
        else {
            return undef;
        }
    };

}

1;