File Coverage

blib/lib/Metabrik/Devel/Mojo.pm

Criterion	Covered	Total	%
statement	9	76	11.8
branch	0	56	0.0
condition	0	6	0.0
subroutine	3	11	27.2
pod	1	8	12.5
total	13	157	8.2

#
# $Id$
#
# devel::mojo Brik
#
package Metabrik::Devel::Mojo;
use strict;
use warnings;

use base qw(Metabrik::Shell::Command);

sub brik_properties {
   return {
      revision => '$Revision$',
      tags => [ qw(unstable) ],
      author => 'GomoR ',
      license => 'http://opensource.org/licenses/BSD-3-Clause',
      attributes => {
         datadir => [ qw(datadir) ],
      },
      attributes_default => {
      },
      commands => {
         generate_lite_app => [ qw(file_pl) ],
         generate_app => [ qw(MyApp) ],
         morbo => [ qw(file_pl) ],
         inflate => [ qw(file_pl) ],
         get => [ qw(url) ],
         test => [ qw(file_pl) ],
         routes => [ qw(file_pl) ],
      },
      require_modules => {
         Mojolicious => [ ],
      },
      require_binaries => {
         mojo => [ ],
         morbo => [ ],
      },
   };
}

sub generate_lite_app {
   my $self = shift;
   my ($pl) = @_;

   my $datadir = $self->datadir;
   $self->brik_help_run_undef_arg('generate_lite_app', $pl) or return;

   my $cwd = defined($self->shell) && $self->shell->pwd || '/tmp';

   if (defined($self->shell)) {
      $self->shell->run_cd($datadir) or return;
   }
   else {
      chdir($datadir) or return $self->log->error("generate_lite_app: chdir: $!");
   }

   my $cmd = "mojo generate lite_app \"$pl\"";
   my $r = $self->execute($cmd);

   if (defined($self->shell)) {
      $self->shell->run_cd($cwd) or return;
   }
   else {
      chdir($cwd) or return $self->log->error("generate_lite_app: chdir: $!");
   }

   return $r;
}

sub generate_app {
   my $self = shift;
   my ($module) = @_;

   my $datadir = $self->datadir;
   $self->brik_help_run_undef_arg('generate_app', $module) or return;

   my $cwd = defined($self->shell) && $self->shell->pwd || '/tmp';

   if (defined($self->shell)) {
      $self->shell->run_cd($datadir) or return;
   }
   else {
      chdir($datadir) or return $self->log->error("generate_app: chdir: $!");
   }

   my $cmd = "mojo generate app \"$module\"";
   my $r = $self->execute($cmd);

   if (defined($self->shell)) {
      $self->shell->run_cd($cwd) or return;
   }
   else {
      chdir($cwd) or return $self->log->error("generate_app: chdir: $!");
   }

   return $r;
}

sub morbo {
   my $self = shift;
   my ($pl) = @_;

   my $datadir = $self->datadir;
   $self->brik_help_run_undef_arg('morbo', $pl) or return;
   $self->brik_help_run_file_not_found('morbo', $pl) or return;

   my $cmd = "morbo \"$pl\"";
   return $self->execute($cmd);
}

sub inflate {
   my $self = shift;
   my ($pl) = @_;

   my $datadir = $self->datadir;
   $self->brik_help_run_undef_arg('inflate', $pl) or return;
   $self->brik_help_run_file_not_found('inflate', $pl) or return;

   my $cwd = defined($self->shell) && $self->shell->pwd || '/tmp';

   if (defined($self->shell)) {
      $self->shell->run_cd($datadir) or return;
   }
   else {
      chdir($datadir) or return $self->log->error("inflate: chdir: $!");
   }

   my $cmd = "perl \"$pl\" inflate";
   my $r = $self->execute($cmd);

   if (defined($self->shell)) {
      $self->shell->run_cd($cwd) or return;
   }
   else {
      chdir($cwd) or return $self->log->error("inflate: chdir: $!");
   }

   return $r;
}

#
# ./myapp.pl get -v '/?user=sebastian&pass=secr3t'
#
sub get {
   my $self = shift;
   my ($pl, $url) = @_;

   $self->brik_help_run_undef_arg('get', $pl) or return;
   $self->brik_help_run_undef_arg('get', $url) or return;

   my $cmd = "perl \"$pl\" get -v '$url'";
   return $self->execute($cmd);
}

sub test {
   my $self = shift;
   my ($pl) = @_;

   $self->brik_help_run_undef_arg('test', $pl) or return;

   my $cmd = "perl \"$pl\" test";
   return $self->execute($cmd);
}

#
# ./myapp.pl routes -v
#
sub routes {
   my $self = shift;
   my ($pl) = @_;

   $self->brik_help_run_undef_arg('routes', $pl) or return;

   my $cmd = "perl \"$pl\" routes -v";
   return $self->execute($cmd);
}

1;

__END__