File Coverage

blib/lib/CLI/Dispatch/Docopt.pm

Criterion	Covered	Total	%
statement	14	28	50.0
branch	1	4	25.0
condition	0	2	0.0
subroutine	4	6	66.6
pod	1	1	100.0
total	20	41	48.7

package CLI::Dispatch::Docopt;
use strict;
use warnings;

our $VERSION = '0.01';

my $SubCmd = 'sub_command';

sub import {
    my ($class, $name) = @_;

    $SubCmd = $name if defined $name;

    my $caller = caller;

    no strict 'refs'; ## no critic
    *{"${caller}::run"} = sub {
        CLI::Dispatch::Docopt->run(@_);
    };
}

sub run {
    my ($class, $base, $opt, $method) = @_;

    $method ||= 'run';

    my $module = $base;

    for my $key (keys %{$opt}) {
        next unless $key eq "<$SubCmd>";
        $module = "${base}::". ucfirst($opt->{$key});
        last;
    }

    my $module_path = $module;
    $module_path =~ s!::!/!g;
    $module_path .= ".pm";

    require $module_path;
    $module->$method($opt);
}

1;

__END__