File Coverage

blib/lib/Beam/Runner/Command/minion.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	5	6	83.3
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	28	31	90.3

package Beam::Runner::Command::minion;
our $VERSION = '0.016';
# ABSTRACT: Command for L to run distributed tasks

#pod =head1 SYNOPSIS
#pod
#pod     exit Beam::Runner::Command::minion->run( $cmd => @args );
#pod
#pod =head1 DESCRIPTION
#pod
#pod This is the entry point for the L command to delegate to
#pod the appropriate L subclass.
#pod
#pod =head1 SEE ALSO
#pod
#pod The L commands: L,
#pod L
#pod
#pod =cut

use strict;
use warnings;
use Module::Runtime qw( use_module compose_module_name );

sub run {
    my ( $class, $cmd, @args ) = @_;
    if ( !$cmd ) {
        die "ERROR: No 'beam minion' sub-command specified\n";
    }
    my $cmd_class = compose_module_name( 'Beam::Minion::Command', $cmd );
    eval { use_module( $cmd_class ) };
    if ( $@ ) {
        if ( $@ =~ m{^Can't locate Beam/Minion/Command/} ) {
            die "ERROR: No such sub-command: $cmd\n";
        }
        die "Error loading module '$cmd_class': $@\n";
    }
    return $cmd_class->new->run( @args );
}

1;

__END__