File Coverage

blib/lib/oCLI/Command.pm

Criterion	Covered	Total	%
statement	10	16	62.5
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	13	23	56.5

package oCLI::Command;
use Import::Into;
use Package::Stash;
push our @ISA, qw( Exporter );
push our @EXPORT, qw( setup define );

sub import {
    shift->export_to_level(1);
    my $target = caller;
    Package::Stash->new($target)->add_symbol( '%stash', { class => $target } );
    Moo->import::into($target);
}

sub define {
    my ( $name, @args ) = @_;

    ${Package::Stash->new(scalar caller)->get_symbol('%stash')}{command}->{$name} = { @args };
}

sub setup {
    my ( $name, @args ) = @_;

    ${Package::Stash->new(scalar caller)->get_symbol('%stash')}{info} = { name => $name, @args };
}

1;