File Coverage

lib/App/SimulateReads/CLI/Command.pm

Criterion	Covered	Total	%
statement	3	8	37.5
branch	0	4	0.0
condition	0	3	0.0
subroutine	1	5	20.0
pod	4	4	100.0
total	8	24	33.3

package App::SimulateReads::CLI::Command;
# ABSTRACT: App::SimulateReads::CLI subclass for commands interface

use App::SimulateReads::Base 'class';

extends 'App::SimulateReads::CLI';

our $VERSION = '0.05'; # VERSION

override 'opt_spec' => sub {
	super
};

sub validate_args {
	# It needs to be override
}

sub validate_opts {
	# It needs to be override
}

sub execute {
	# It needs to be override
}

sub fill_opts {
	my ($self, $opts, $default_opt) = @_;
	if (ref $opts ne 'HASH' || ref $default_opt ne 'HASH') {
		croak '$opts and $default_opt need to be a hash reference';
	}

	for my $opt (keys %$default_opt) {
		$opts->{$opt} = $default_opt->{$opt} if not exists $opts->{$opt};
	}
}

__END__

=pod

=encoding UTF-8

=head1 NAME

App::SimulateReads::CLI::Command - App::SimulateReads::CLI subclass for commands interface

=head1 VERSION

version 0.05

=head1 SYNOPSIS

 extends 'App::SimulateReads::CLI::Command';

=head1 DESCRIPTION

This is the base interface to command classes.
Command classes need to override C<validate_args>,
C<validate_opts> and C<execute> methods

=head1 METHODS

=head2 validate_args

This method receives a reference to C<$args> in void
context. It is expected that the user override it and
validate the arguments

 sub validate_args {
 	my ($self, $args) = @_
	...
 }

=head2 validate_opts

This method receives a reference to C<$opts> in void
context. It is expected that the user override it and
validate the options

 sub validate_opts {
 	my ($self, $opts) = @_;
	...
 }

=head2 fill_opts

This method fills the C<$opts> with default values
passed by the user. it expects two hash refs

 $self->fill_opts($opts, \%default_opts);

=head2 execute

This method is called by the application class. It is
where all the magic occurs. It receives two hash refs
with C<$opts> and C<$args> in void context

 sub execute {
 	my ($self, $opts, $args) = @_;
	...
 }

=head1 AUTHOR

Thiago L. A. Miller <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2017 by Teaching and Research Institute from Sírio-Libanês Hospital.

This is free software, licensed under:

  The GNU General Public License, Version 3, June 2007

=cut