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


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

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

use Moose;
use namespace::autoclean;

with qw/Net::HTTP::Console::Dispatcher/;

sub dispatch {
    my ($self, $input) = @_;
    if (Class::MOP::load_class($input)) {
        print "loaded ".$input."\n";
        $self->application->lib($input);
        return 1;
    }
    # XXX error confess & co
}

sub pattern {
    my ($self, $input) = @_;
    $input =~ /load\s(.*)$/ ? $1 : 0;
}

1;