File Coverage

blib/lib/Dist/Zilla/MintingProfile/Clustericious.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 Dist::Zilla::MintingProfile::Clustericious;

# ABSTRACT: Minting profile for Clustericious clients and servers
our $VERSION = '0.02'; # VERSION


use Moose;
use v5.10;

with qw( Dist::Zilla::Role::MintingProfile );

use namespace::autoclean;
use File::ShareDir qw( dist_dir );
use Path::Class qw( dir file );

sub profile_dir
{
  my($self, $name) = @_;

  $name = 'app' if $name eq 'default';
  my $dir;

  if(defined $ENV{DIST_ZILLA_MINTING_PROFILE_CLUSTERICIOUS})
  {
    $dir = dir( $ENV{DIST_ZILLA_MINTING_PROFILE_CLUSTERICIOUS} )->subdir($name);
  }
  elsif(defined $Dist::Zilla::MintingProfile::Clustericious::VERSION)
  {
    $dir = dir(dist_dir('Dist-Zilla-MintingProfile-Clustericious'))
      ->subdir($name);
  }
  else
  {
    # If $VERSION is not defined, then we are running out of a dist
    # that hasn't been dzil builded yet, so find the share directory
    # relative to this .pm file.
    $dir = file(__FILE__)
      ->absolute
      ->dir
      ->parent
      ->parent
      ->parent
      ->parent
      ->subdir('share')
      ->subdir($name);
  }

  die "no such Clustericious profile $name" unless -d $dir;

  $dir;
}

__PACKAGE__->meta->make_immutable;

1;

__END__

=pod

=head1 NAME

Dist::Zilla::MintingProfile::Clustericious - Minting profile for Clustericious clients and servers

=head1 VERSION

version 0.02

=head1 SYNOPSIS

 # create a new app without database
 % dzil new -P Clustericious Foo

 # create a new app with database
 % dzil new -P Clustericious -p mbd_app Foo

 # create a new client, NOTE: name must end in ::Client
 % dzil new -P Clustericious -p client Foo::Client

=head1 DESCRIPTION

This minting profile is used to generate stub Clustericious
applications in a L<Dist::Zilla> context.

=head1 AUTHOR

Graham Ollis <[e-mail]>

=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