lib/Net/HTTP/Console/Dispatcher/Load.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

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

use MooseX::Declare;

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

    method dispatch($input) {
        (my $type, my $name) = $input =~ /(\w+)\s(.*)$/;

        if ($type eq 'spec') {
            $self->application->load_api_spec($name);
        }elsif($type eq 'lib') {
            $self->application->load_api_lib($name);
        }else{
            $self->logger('error', "can't load for $type");
        }
    }

    method pattern($input) {
        $input =~ /load\s(.*)$/ ? $1 : 0;
    }
}

1;