view release on metacpan or  search on metacpan

lib/Aion/Run.pm  view on Meta::CPAN

		$param{$key} = \@args;
	}

	$pkg->new(%param)
}

1;

__END__

=encoding utf-8

=head1 NAME

Aion::Run - role for console commands

=head1 VERSION

0.0.3

=head1 SYNOPSIS

File lib/Scripts/MyScript.pm:

	package Scripts::MyScript;
	
	use common::sense;
	
	use List::Util qw/reduce/;
	use Aion::Format qw/trappout/;
	
	use Aion;
	
	with qw/Aion::Run/;
	
	# Operands for calculations
	has operands => (is => "ro+", isa => ArrayRef[Int], arg => "-a", init_arg => "operand");
	
	# Operator for calculations
	has operator => (is => "ro+", isa => Enum[qw!+ - * /!], arg => 1);
	
	#@run math/calc „Calculate”
	sub calculate_sum {
	    my ($self) = @_;
	    printf "Result: %g\n", reduce {
	        given($self->operator) {
	            $a+$b when /\+/;
	            $a-$b when /\-/;
	            $a*$b when /\*/;
	            $a/$b when /\//;
	        }
	    } @{$self->operands};
	}
	
	1;



	use Aion::Format qw/trappout/;
	
	use lib "lib";
	use Scripts::MyScript;
	
	trappout { Scripts::MyScript->new_from_args([qw/-a 1 -a 2 -a 3 +/])->calculate_sum } # => Result: 6\n
	trappout { Scripts::MyScript->new_from_args([qw/--operand=4 * --operand=2/])->calculate_sum } # => Result: 8\n

=head1 DESCRIPTION

The C<Aion::Run> role implements the C<arg> aspect for installing features from command line parameters.

=over

=item * C<< arg =E<gt> "-X" >> is a named parameter. You can use either the shortcut B<-X> or the feature name with B<-->.

=item * C<< arg =E<gt> natural >> is an ordinal parameter. C<1+>.

=item * C<< arg =E<gt> 0 >> - all unnamed parameters. Used with C<< isa =E<gt> ArrayRef >>.

=back

=head1 METHODS

=head2 new_from_args ($pkg, $args)

Constructor. It creates a script object with command line options.

	package ArgExample {
		use Aion;
		
		with qw/Aion::Run/;
		
		has args => (is => "ro+", isa => ArrayRef[Str], arg => 0);
		has arg => (is => "ro+", isa => ArrayRef[Str], arg => '-a');
		has arg1 => (is => "ro+", isa => Str, arg => 1);
		has arg2 => (is => "ro+", isa => Str, init_arg => '_arg2', arg => 2);
		has arg_1 => (is => "ro+", isa => Str, init_arg => '_arg_1', arg => -1);
		has arg_2 => (is => "ro+", isa => Str, arg => -2);
	}
	
	my $ex = ArgExample->new_from_args([qw/1  -a 5  2  --arg=6 -2 5 --_arg_1=4/]);
	
	$ex->arg1 # => 1
	$ex->arg2 # => 2
	$ex->arg_1 # => 4
	$ex->arg_2 # => 5
	$ex->args # --> [1, 2]
	$ex->arg # --> [5, 6]

=head1 SEE ALSO

=over

=item * L<Aion>

=back

=head1 AUTHOR

Yaroslav O. Kosmina L<mailto:dart@cpan.org>

=head1 LICENSE