File Coverage

blib/lib/Module/Setup/Plugin/Additional.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	2	50.0
total	36	37	97.3

package Module::Setup::Plugin::Additional;
use strict;
use warnings;
use base 'Module::Setup::Plugin';

use Module::Setup::Path::Template;

sub register {
    my($self, ) = @_;
    $self->add_trigger( append_template_file => \&append_template_file );
}

sub append_template_file {
    my $self = shift;

    my $config = $self->base_dir->flavor->additional->config->load;
    for my $additional ( $self->base_dir->flavor->additional->path->children ) {
        next unless $additional->is_dir;
        my $name = $additional->dir_list(-1);
        return unless $self->dialog("Do you install additional template by $name? [yN] ", 'n') =~ /[Yy]/;

        my $base_src = Module::Setup::Path::Template->new($self->base_dir->flavor->additional->path, $name);
        for my $path ($base_src->find_files) {
            $self->distribute->install_template($self, $path, $base_src);
        }
        push @{ $self->distribute->{additionals} }, $config->{$name};
    }
}

1;