File Coverage

blib/lib/Clustericious/Command/generate/client.pm

Criterion	Covered	Total	%
statement	15	36	41.6
branch	0	12	0.0
condition	0	2	0.0
subroutine	5	8	62.5
pod	1	1	100.0
total	21	59	35.5

package Clustericious::Command::generate::client;

use strict;
use warnings;
use Mojo::Base 'Clustericious::Command';
use File::Find;
use File::Basename qw( basename );

# ABSTRACT: Clustericious command to generate a new Clustericious client
our $VERSION = '1.27'; # VERSION


has description => <<'EOF';
Generate Clustericious::Client-derived client.
EOF

has usage => <<"EOF";
usage: $0 generate client [SERVER APP NAME]
EOF

sub _installfile
{
  my $self = shift;
  my ($templatedir, $file, $serverclass, $moduledir) = @_;

  my $name = lc $serverclass;

  (my $relpath = $file) =~ s/^$templatedir/$moduledir/;
  $relpath =~ s/APPCLASS/$serverclass/g;
  $relpath =~ s/APPNAME/$name/g;

  return if -e $relpath;

  my $content = Mojo::Template->new->render_file( $file, $serverclass );
  $self->write_file($relpath, $content );
  -x $file && $self->chmod_file($relpath, 0755);
}

sub run
{
  my ($self, $serverclass, @args ) = @_;
  $serverclass ||= 'MyClustericiousApp';
  if (@args % 2)
  {
    die "usage : $0 generate client <app_name>\n";
  }
  my %args = @args;

  die "app_name should be the server name" if $serverclass =~ /\-/;

  my $moduledir = $serverclass.'-Client';

  my $templatedir = Clustericious->_dist_dir->subdir('tmpl', '1.08', 'client');

  die "Can't find template in $templatedir.\n" unless -d $templatedir;

  find({wanted => sub { $self->_installfile($templatedir, $_, $serverclass, $moduledir) if -f },
        no_chdir => 1}, $templatedir);
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Clustericious::Command::generate::client - Clustericious command to generate a new Clustericious client

=head1 VERSION

version 1.27

=head1 SYNOPSIS

 % clustericious generate client Myapp

=head1 DESCRIPTION

This command generates a new Clustericious client with the given name.

=head1 SEE ALSO

L<Clustericious>, L<Clustericious::Client>

=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