Aion-Run

 view release on metacpan or  search on metacpan

lib/Aion/Run/RunsRun.md  view on Meta::CPAN

```perl
use common::sense;
use Aion::Format qw/trappout coloring/;
use Aion::Run::RunsRun;

my $len = 4;
my $len2 = 6;

my $list = coloring "#yellow%s#r\n", "run";
$list .= coloring "  #green%-${len}s #{bold red}%-${len2}s #{bold black}%s#r\n", "run", "code", "„Executes Perl code in the context of the current project”";
$list .= coloring "  #green%-${len}s #{bold red}%-${len2}s #{bold black}%s#r\n", "runs", "[mask]", "„List of scripts”";

trappout { Aion::Run::RunsRun->new->list } # => $list
```

# DESCRIPTION

Печатает на стандартный вывод список сценариев из файла **etc/annotation/run.ann**.

Для этого загружает файлы, чтобы получить из них описание аргументов.

lib/Aion/Run/RunsRun.md  view on Meta::CPAN

## mask

Маска для фильтра по скриптам.

```perl
my $len = 4;
my $len2 = 6;

my $list = coloring "#yellow%s#r\n", "run";
$list .= coloring "  #green%-${len}s #{bold red}%-${len2}s #{bold black}%s#r\n", "runs", "[mask]", "„List of scripts”";

trappout { Aion::Run::RunsRun->new(mask => 'runs')->list } # => $list
```

# SUBROUTINES

## list ()

Выводит список сценариев на `STDOUT`.

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

			    ($_->{isa}{name} eq "ArrayRef" ? "[$x...]" : "[$x]")
	    } @features;
	}
	
	my $len2 = max map length $_->{args}, @runs;
	
	my $rubric;
	for(@runs) {
		printcolor "#yellow%s#r\n", $rubric = $_->{rubric} if $rubric ne $_->{rubric};

		printcolor "  #green%-${len}s #{bold red}%-${len2}s #{bold black}%s#r\n", $_->{name}, $_->{args}, $_->{remark};
	}
}

1;

__END__

=encoding utf-8

=head1 NAME

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

	use common::sense;
	use Aion::Format qw/trappout coloring/;
	use Aion::Run::RunsRun;
	
	my $len = 4;
	my $len2 = 6;
	
	my $list = coloring "#yellow%s#r\n", "run";
	$list .= coloring "  #green%-${len}s #{bold red}%-${len2}s #{bold black}%s#r\n", "run", "code", "„Executes Perl code in the context of the current project”";
	$list .= coloring "  #green%-${len}s #{bold red}%-${len2}s #{bold black}%s#r\n", "runs", "[mask]", "„List of scripts”";
	
	trappout { Aion::Run::RunsRun->new->list } # => $list

=head1 DESCRIPTION

Prints a list of scripts from the file B<etc/annotation/run.ann> to standard output.

To do this, it loads files to obtain descriptions of the arguments from them.

You can change the file in the C<Aion::Run::Runner#INI> config.

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

=head1 FEATURES

=head2 mask

Mask for filter by scripts.

	my $len = 4;
	my $len2 = 6;
	
	my $list = coloring "#yellow%s#r\n", "run";
	$list .= coloring "  #green%-${len}s #{bold red}%-${len2}s #{bold black}%s#r\n", "runs", "[mask]", "„List of scripts”";
	
	trappout { Aion::Run::RunsRun->new(mask => 'runs')->list } # => $list

=head1 SUBROUTINES

=head2 list ()

Lists scripts on C<STDOUT>.

=head1 AUTHOR

t/aion/run/runs-run.t  view on Meta::CPAN

# 
subtest 'SYNOPSIS' => sub { 
use common::sense;
use Aion::Format qw/trappout coloring/;
use Aion::Run::RunsRun;

my $len = 4;
my $len2 = 6;

my $list = coloring "#yellow%s#r\n", "run";
$list .= coloring "  #green%-${len}s #{bold red}%-${len2}s #{bold black}%s#r\n", "run", "code", "„Executes Perl code in the context of the current project”";
$list .= coloring "  #green%-${len}s #{bold red}%-${len2}s #{bold black}%s#r\n", "runs", "[mask]", "„List of scripts”";

local ($::_g0 = do {trappout { Aion::Run::RunsRun->new->list }}, $::_e0 = "$list"); ::ok $::_g0 eq $::_e0, 'trappout { Aion::Run::RunsRun->new->list } # => $list' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

# 
# # DESCRIPTION
# 
# Печатает на стандартный вывод список сценариев из файла **etc/annotation/run.ann**.
# 
# Для этого загружает файлы, чтобы получить из них описание аргументов.
# 

t/aion/run/runs-run.t  view on Meta::CPAN

# 
# ## mask
# 
# Маска для фильтра по скриптам.
# 
::done_testing; }; subtest 'mask' => sub { 
my $len = 4;
my $len2 = 6;

my $list = coloring "#yellow%s#r\n", "run";
$list .= coloring "  #green%-${len}s #{bold red}%-${len2}s #{bold black}%s#r\n", "runs", "[mask]", "„List of scripts”";

local ($::_g0 = do {trappout { Aion::Run::RunsRun->new(mask => 'runs')->list }}, $::_e0 = "$list"); ::ok $::_g0 eq $::_e0, 'trappout { Aion::Run::RunsRun->new(mask => \'runs\')->list } # => $list' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g...

# 
# # SUBROUTINES
# 
# ## list ()
# 
# Выводит список сценариев на `STDOUT`.
#