File Coverage

blib/lib/Gears/Generator.pm

Criterion	Covered	Total	%
statement	55	55	100.0
branch	6	8	75.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	70	72	97.2

package Gears::Generator;
$Gears::Generator::VERSION = '0.101';
use v5.40;
use Mooish::Base -standard;

use Gears::X::Generator;
use Path::Tiny qw(path);

has param 'base_dir' => (
	coerce => (InstanceOf ['Path::Tiny'])
		->plus_coercions(
			Str, q{ Path::Tiny::path($_) },
		),
);

has param 'name_filters' => (
	isa => ArrayRef [CodeRef],
	default => sub { [] },
);

has param 'content_filters' => (
	isa => ArrayRef [CodeRef],
	default => sub { [] },
);

sub get_template ($self, $name)
{
	my $dir = $self->base_dir->child($name);
	Gears::X::Generator->raise("invalid directory $name")
		unless $dir->is_dir;

	my @all_items;
	my $iter = $dir->iterator({recurse => true});
	while (my $item = $iter->()) {
		next if $item->is_dir;
		push @all_items, $item;
	}

	return \@all_items;
}

sub generate ($self, $name, $target_dir)
{
	my $template_items = $self->get_template($name);
	my $base = $self->base_dir->child($name);
	my $target_path = path($target_dir);

	Gears::X::Generator->raise("target directory does not exist: $target_dir")
		unless $target_path->is_dir;

	my @generated;
	for my $item ($template_items->@*) {
		my $target_file = $target_path->child($item->relative($base));

		my $content = $item->slurp({binmode => ':encoding(UTF-8)'});
		($target_file, $content) = $self->_process_file($target_file, $content);

		$target_file = path($target_file);
		$target_file->parent->mkdir;
		push @generated, [$target_file, $content];

		Gears::X::Generator->raise("file already exists: $target_file, aborting")
			if $target_file->exists;
	}

	foreach my $item (@generated) {
		$item->[0]->spew({binmode => ':encoding(UTF-8)'}, $item->[1]);
	}

	return [map { $_->[0] } @generated];
}

sub _process_file ($self, $name, $content)
{
	foreach my $filter ($self->name_filters->@*) {
		$name = $filter->($name);
	}

	foreach my $filter ($self->content_filters->@*) {
		$content = $filter->($content);
	}

	return ($name, $content);
}

__END__