view release on metacpan or  search on metacpan

lib/App/Tool/Base.pm  view on Meta::CPAN

    my $actions = _get_action_names($opt{full});
    say join qq{\n}, @$actions;
    return;
}



sub import
{
    my $class = shift;
    my $inheritor = caller(0);
    my ($run) = @_;

    {
        no strict 'refs';
        push @{"$inheritor\::ISA"}, $class;
        *{"$inheritor\::$run"} = \&run  if $run;
    };

    return;
}