File Coverage

blib/lib/Mojolicious/Command/generate/upstart.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Mojolicious::Command::generate::upstart;
use Mojo::Base 'Mojolicious::Command';

use File::Spec;
use Getopt::Long 'GetOptions';
use Mojo::ByteStream 'b';
use Mojo::Util 'dumper';

has description => "Generate application upstart job\n";
has usage => <
usage: $0 generate upstart [OPTIONS]

These options are available:
    --output    Set folder to output upstart job (default: .)
    --deploy            Deploy upstart into /etc/init
    --name        Ovewrite name which is used for upstart job
EOF

=head1 NAME

Mojolicious::Command::generate::upstart - upstart job generator command

=head1 SYNOPSYS

	$ ./mojo_app.pl generate help upstart
	usage: ./mojo_app.pl generate upstart [OPTIONS]

	These options are available:
		--output    Set folder to output upstart job (default: .)
		--deploy            Deploy upstart into /etc/init
		--name        Ovewrite name which is used for upstart job

=cut

our $VERSION = '0.02';

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

  #$self->app->plugin('DefaultHelpers');

  GetOptions(
    'output=s' => \my $output,
    'deploy' => \my $deploy,
    'name=s' => \my $name,
  );

  if ( !$name ) {
    my (undef, undef, $filename) = File::Spec->splitpath($0);
    ($name) = $filename =~ m/^(.*?)(?:\.pl)?$/;
  }

  $self->app->moniker($name);

  if ( !( $deploy || $output ) ) {
    $output = '.';
  }
  if ( $deploy && $output ) {
    die qq{Either --deploy or --output  should be specified but not both\n};
  }
  if ( $deploy && !$self->user_is_root ) {
    $output = '.';
    $deploy = 0;
  }

  my $file = $deploy
    ? File::Spec->join('', 'etc', 'init', $self->app->moniker.'.conf')
    : File::Spec->join($output, 'etc_init_'.$self->app->moniker.'.conf');
  $self->render_to_file('upstart', $file, $self->app);
  $self->chmod_file($file, 0755);

  # config file
  $file = $deploy
    ? File::Spec->join('', 'etc', 'default', $self->app->moniker)
    : File::Spec->join($output, 'etc_default_'.$self->app->moniker);
  $self->render_to_file('config', $file, $self->app);
  $self->chmod_file($file, 0644);
}

sub user_is_root { $> == 0 || $< == 0 }

__DATA__