view release on metacpan or  search on metacpan

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

use common::sense; use open qw/:std :utf8/;  use Carp qw//; use Cwd qw//; use File::Basename qw//; use File::Find qw//; use File::Slurper qw//; use File::Spec qw//; use File::Path qw//; use Scalar::Util qw//;  use Test::More 0.98;  use String::Diff q...
# # NAME
# 
# Aion::Run::RunRun - выполняет Perl-код и распечатывает результат на STDOUT
# 
# # SYNOPSIS
# 
subtest 'SYNOPSIS' => sub { 
use Aion::Format qw/trappout np/;
use Aion::Run::RunRun;

local ($::_g0 = do {trappout { Aion::Run::RunRun->new(code => "1+2")->run }}, $::_e0 = do {np(3, caller_info => 0) . "\n"}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, 'trappout { Aion::Run::RunRun->new(code => "1+2")->run } # -> np...

# 
# # DESCRIPTION
# 
# Этот класс выполняет код perl `$ run [code](https://metacpan.org/pod/code)` и распечатывает результат на STDOUT.
# 
# # FEATURES
# 
# ## code
# 
# Код для выполнения.
# 
# # SUBROUTINES
# 
# ## run ()
# 
# Выполняет код perl в контексте текущего проекта.
# 
# # AUTHOR
# 
# Yaroslav O. Kosmina <darviarush@mail.ru>
# 
# # LICENSE
# 
# âš– **GPLv3**
# 
# # COPYRIGHT
# 
# The Aion::Run::RunRun module is copyright © 2023 Yaroslav O. Kosmina. Rusland. All rights reserved.

	::done_testing;
};

::done_testing;