File Coverage

/root/.cpan/build/Riji-v1.1.4-0/lib/Riji/CLI.pm

Criterion	Covered	Total	%
statement	37	46	80.4
branch	3	8	37.5
condition	1	2	50.0
subroutine	8	9	88.8
pod	0	1	0.0
total	49	66	74.2

package Riji::CLI;
use feature ':5.10';
use strict;
use warnings;

use IPC::Cmd ();
use Getopt::Long ();
use Plack::Util ();
use String::CamelCase ();

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

    local @ARGV = @args;
    my @commands;
    my $p = Getopt::Long::Parser->new(
        config => [ "no_ignore_case", "pass_through" ],
    );
    $p->getoptions(
        "h|help"   => sub { unshift @commands, 'help' },
        'version!' => \my $version,
    );
    if ($version) {
        require Riji;
        say "Riji: $Riji::VERSION"; exit 0;
    }
    push @commands, @ARGV;

    my $cmd = shift @commands || 'help';
    if (my $cmd = IPC::Cmd::can_run("riji-$cmd")) {
        exec $cmd, @commands;
    }

    $cmd =~ s/-/_/g;
    my $class = String::CamelCase::camelize $cmd;

    local $@;
    $class = eval { Plack::Util::load_class($class, 'Riji::CLI') };
    if (my $err = $@) {
        if ($err =~ m!Can't locate Riji/CLI!) {
            warn "sub command `$cmd` not found\n"; exit 1;
        }
        die $@;
    }
    $class->run(@commands);
}

1;