File Coverage

blib/lib/Clustericious/Commands.pm

Criterion	Covered	Total	%
statement	15	17	88.2
branch	2	4	50.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	0	1	0.0
total	23	30	76.6

package Clustericious::Commands;

use strict;
use warnings;
use Clustericious::Config;
use Mojo::Base 'Mojolicious::Commands';

# ABSTRACT: Clustericious command runner
our $VERSION = '1.27'; # VERSION


has namespaces => sub { [qw/Clustericious::Command Mojolicious::Command/] };

has app => sub { Mojo::Server->new->build_app('Clustericious::HelloWorld') };

sub start {
    my $self = shift;

    if($ENV{CLUSTERICIOUS_COMMAND_NAME} && @_ == 0) {
        @_ = ($ENV{CLUSTERICIOUS_COMMAND_NAME});
    }

    return $self->start_app($ENV{MOJO_APP} => @_) if $ENV{MOJO_APP};
    return $self->new->app->start(@_);
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Clustericious::Commands - Clustericious command runner

=head1 VERSION

version 1.27

=head1 SYNOPSIS

 % yourapp start

=head1 DESCRIPTION

This class is used by the L<clustericious> command to do its thing.
See L<Clustericious::Command> for an overview of Clustericious commands.

=head1 SUPER CLASS

L<Mojolicious::Commands>

=head1 SEE ALSO

L<Clustericious::Command>

=head1 AUTHOR

Original author: Brian Duggan

Current maintainer: Graham Ollis E<lt>[e-mail]<gt>

Contributors:

Curt Tilmes

Yanick Champoux

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by NASA GSFC.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut