CLI for Mojolicious

Base.pm

package Test::Web::CLI::Base;
use Mojo::Base qw/Mojolicious::Command/;

# public processing for CLI
sub get_data {
    my $self = shift;
    return 'data';
}

1;

cli.pl

#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;

BEGIN {
    unshift @INC, "$FindBin::Bin/../lib";
    $ENV{MOJO_HOME} = "$FindBin::Bin/../";
}

use Mojolicious::Commands;

my $cmd = Mojolicious::Commands->new;
$cmd->namespaces([qw/Test::Web::CLI/]);
$cmd->run(@ARGV);

Testcli.pm

package Test::Web::CLI::Testcli;
use Mojo::Base qw/Test::Web::CLI::Base/;

# Testcli command processing
# package name
sub run {
    my ($self, @args) = @_;
    my $data = $self->get_data;
    
    print $args[0].$data;
}

Use Example

$ perl cli.pl Testcli test
datatest