File Coverage

blib/lib/Mojolicious/Command/Author/generate/role.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	5	6	83.3
condition	12	13	92.3
subroutine	3	3	100.0
pod	1	1	100.0
total	41	43	95.3

package Mojolicious::Command::Author::generate::role 0.002;

use Mojo::Base 'Mojolicious::Command';

use Mojo::Util qw(camelize class_to_path getopt);

has description => 'Generate Mojolicious role directory structure';
has usage       => sub { shift->extract_usage };

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

    getopt \@args, 'f|full' => \( my $full );

    # Class
    my $name  = pop @args // 'MyRole';
    my $consumer  = pop @args;
    my $class = $consumer && !$full ? "${consumer}::Role::${name}" : $name;
    ( $consumer, $name ) = ( $1, $2 )
      if ( !$consumer && $class =~ m/^(.*)::Role::(.*)/ );
    my $sname = $consumer && $class =~ m/^${consumer}::Role::(.*)/ ? "+$1" : $class;
    $consumer //= 'Mojo::Base';

    my $dir  = join '-', split( '::', $class );
    my $app  = class_to_path $class;
    my $vars = {
        class      => $class,
	use_consumer   => !exists $INC{class_to_path($consumer)},
        consumer => $consumer,
        name       => $name,
        sname      => $sname,
        path       => $app
    };
    $self->render_to_rel_file( 'class', "$dir/lib/$app", $vars );

    # Test
    $self->render_to_rel_file( 'test', "$dir/t/basic.t", $vars );

    # Makefile
    $self->render_to_rel_file( 'makefile', "$dir/Makefile.PL", $vars );
}

1;

=encoding utf8

=head1 NAME

Mojolicious::Command::Author::generate::role - Role generator command

=head1 VERSION

version 0.002

=head1 SYNOPSIS

  Usage: APPLICATION generate role [OPTIONS] [[CONSUMER_CLASS] NAME]

    mojo generate role
    mojo generate role MyRole
    mojo generate role Mojo::Whatever MyRole
    mojo generate role Mojo::Whatever::Role::MyRole
    mojo generate role -f Mojo::Whatever MyRole

  Options:
    -f, --full   NAME is the full role name (omit 'CONSUMER_CLASS::Role::')
    -h, --help   Show this summary of available options

=head1 DESCRIPTION

L generates directory structures
for fully functional roles to use with L objects/classes.

If the intended consumer class is not specified it will be inferred from the
role name given (whatever precedes C<::Role::> in the name) or otherwise
default to L.

=head1 ATTRIBUTES

L inherits all attributes from
L and implements the following new ones:

=head2 description

  my $description = $role_cmd->description;
  $role_cmd       = $role_cmd->description('Foo');

Short description of this command, used for the command list.

=head2 usage

  my $usage = $role_cmd->usage;
  $role_cmd = $role_cmd->usage('Foo');

Usage information for this command, used for the help screen.

=head1 METHODS

L inherits all methods from
L and implements the following new ones.

=head2 run

  $role_cmd->run(@ARGV);

Run this command.

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2019, Roger Crew.

This program is free software, you can redistribute it and/or
modify it under the terms of the Artistic License version 2.0.

=head1 SEE ALSO

L, L, L.

=cut

__DATA__