File Coverage

blib/lib/App/Scaffolder/Command/html.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	1	2	50.0
condition	3	5	60.0
subroutine	9	9	100.0
pod	4	4	100.0
total	41	45	91.1

package App::Scaffolder::Command::html;
{
  $App::Scaffolder::Command::html::VERSION = '0.001000';
}
use parent qw(App::Scaffolder::Command);

# ABSTRACT: Scaffold a basic HTML file

use strict;
use warnings;

use MRO::Compat;
use Path::Class::Dir;



sub get_variables {
	my ($self, $opt) = @_;
	return {
		name  => scalar $opt->name(),
		title => scalar $opt->title() || scalar $opt->name(),
	};
}



sub get_dist_name {
	return 'App-Scaffolder-HTML';
}



sub get_options {
	my ($class) = @_;
	return (
		[ 'name|n=s' => 'Name of the new HTML file that should be created, without suffix' ],
		[ 'title=s'  => 'Title of the new HTML document that should be created' ],
	);
}


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

	$self->next::method($opt, $args);
	unless ($self->contains_base_args($opt) || $opt->name()) {
		$self->usage_error("Parameter 'name' required");
	}
	return;
}


1;

__END__