view release on metacpan or  search on metacpan

lib/Anego/CLI.pm  view on Meta::CPAN

use utf8;
use Getopt::Long;
use Module::Load;
use Try::Tiny;

use Anego::Logger;

sub run {
    my ($self, @args) = @_;

    local @ARGV = @args;
    my $parser = Getopt::Long::Parser->new(
        config => [ "no_ignore_case", "pass_through" ],
    );
    $parser->getoptions(
        "config=s" => \$Anego::Config::CONFIG_PATH,
    );

    my @commands = @ARGV;;
    my $command = shift @commands || 'help';
    my $klass = sprintf('Anego::CLI::%s', ucfirst($command));