view release on metacpan or  search on metacpan

bin/agent_net.pl  view on Meta::CPAN

	defined ($opt->get_master) ?
	Agent::TCLI::User->new(
		'id'		=> $opt->get_master,
		'protocol'	=> 'xmpp',
		'auth'		=> 'master',
	) : undef,
#	Agent::TCLI::User->new(
#		'id'		=> 'user2@'.$domain,
#		'protocol'	=> 'xmpp',
#		'auth'		=> 'master',
#	),

 view release on metacpan or  search on metacpan

lib/AgentPushKit/Client/AgentTokensApi.pm  view on Meta::CPAN

    },
    };
    __PACKAGE__->method_documentation->{ 'call_mcp' } = {
        summary => 'Connect through stateless MCP Streamable HTTP',
        params => $params,
        returns => undef,
        };
}
# @return void
#
sub call_mcp {

 view release on metacpan or  search on metacpan

t/aion/annotation.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::Annotation - обрабатывает аннотации в модулях perl
# 
# # VERSION

t/aion/annotation.t  view on Meta::CPAN

open my $f, '<', 'etc/annotation/remarks.ini' or die $!; my @remarks = <$f>; chop for @remarks; close $f;
open my $f, '<', 'etc/annotation/todo.ann' or die $!; my @todo = <$f>; chop for @todo; close $f;
open my $f, '<', 'etc/annotation/deprecated.ann' or die $!; my @deprecated = <$f>; chop for @deprecated; close $f;
open my $f, '<', 'etc/annotation/param.ann' or die $!; my @param = <$f>; chop for @param; close $f;

local ($::_g0 = do {0+@modules_mtime}, $::_e0 = do {1}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, '0+@modules_mtime  # -> 1' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;
::like scalar do {$modules_mtime[0]}, qr{^For::Test=\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d$}, '$modules_mtime[0] # ~> ^For::Test=\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d$'; undef $::_g0; undef $::_e0;
local ($::_g0 = do {\@remarks}, $::_e0 = do {['For::Test#,4=The package for testing', 'For::Test#abc,9=Is property\n  readonly']}); ::is_deeply $::_g0, $::_e0, '\@remarks         # --> [\'For::Test#,4=The package for testing\', \'For::Test#abc,9=Is p...
local ($::_g0 = do {\@todo}, $::_e0 = do {['For::Test#abc,6=add1', 'For::Test#xyz,11=add2']}); ::is_deeply $::_g0, $::_e0, '\@todo            # --> [\'For::Test#abc,6=add1\', \'For::Test#xyz,11=add2\']' or ::diag ::_struct_diff($::_g0, $::_e0); undef...
local ($::_g0 = do {\@deprecated}, $::_e0 = do {['For::Test#,3=for_test', 'For::Test#abc,5=']}); ::is_deeply $::_g0, $::_e0, '\@deprecated      # --> [\'For::Test#,3=for_test\', \'For::Test#abc,5=\']' or ::diag ::_struct_diff($::_g0, $::_e0); undef $...
local ($::_g0 = do {\@param}, $::_e0 = do {['For::Test#xyz,12=Int $a', 'For::Test#xyz,13=Int[] $r']}); ::is_deeply $::_g0, $::_e0, '\@param           # --> [\'For::Test#xyz,12=Int $a\', \'For::Test#xyz,13=Int[] $r\']' or ::diag ::_struct_diff($::_g0,...

# 
# # DESCRIPTION
# 
# `Aion::Annotation` сканирует модули perl в каталоге **lib** и распечатывает их в соответстующие файлы в каталоге **etc/annotation**.

 view release on metacpan or  search on metacpan

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

=head2 import

Replaces C<$SIG{__DIE__}> with C<handler>.

	$SIG{__DIE__} = undef;
	$SIG{__DIE__} # --> undef
	
	Aion::Carp->import;
	
	$SIG{__DIE__} # -> \&Aion::Carp::handler

 view release on metacpan or  search on metacpan

t/aion/emitter.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::Emitter - диспетчер событий
# 
# # VERSION

t/aion/emitter.t  view on Meta::CPAN

my $emitter = Aion::Emitter->new;
my $ballEvent = Event::BallEvent->new;

$emitter->emit($ballEvent);

local ($::_g0 = do {$ballEvent->radius}, $::_e0 = do {10}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, '$ballEvent->radius # -> 10' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;
local ($::_g0 = do {$ballEvent->weight}, $::_e0 = do {12}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, '$ballEvent->weight # -> 12' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

$ballEvent->radius(0);

$emitter->emit($ballEvent, "mini");

local ($::_g0 = do {$ballEvent->weight}, $::_e0 = do {3}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, '$ballEvent->weight # -> 3' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;
local ($::_g0 = do {$ballEvent->radius}, $::_e0 = do {0}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, '$ballEvent->radius # -> 0' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

# 
# # DESCRIPTION
# 
# Данный диспетчер событий реализует паттерн **Event Dispatcher** в котором событие определяется по классу объекта события (event).

 view release on metacpan or  search on metacpan

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

	eval "package $pkg; use Aion -role; with 'Aion::Enum'; 1" or die
}

sub unimport {
	my $pkg = caller;
	undef &{"${pkg}::issa"};
	undef &{"${pkg}::case"};
	eval "package $pkg; no Aion; 1" or die
}

#@category Свойства
has name  => (is => 'ro');

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

    while(<$f>) {
        $alias = $1 if /^# (\S.*?)\s*$/;

        do {
            $alias_ref->{$+{id}} = $alias;
            undef $alias;
        } if /^case \s+ (
                (?<id>$id)
            | '(?<id>$id)'
            | "(?<id>$id)"
            | q[wq]? (?:

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

	    case second => 2;
	    case other  => 3, {data => 123};
	}
	
	&OrderEnum::first->name  # => first
	&OrderEnum::first->value # -> undef
	&OrderEnum::first->stash # -> undef
	
	&OrderEnum::second->name  # => second
	&OrderEnum::second->value # -> 2
	&OrderEnum::second->stash # -> undef
	
	&OrderEnum::other->name  # => other
	&OrderEnum::other->value # -> 3
	&OrderEnum::other->stash # --> {data => 123}

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

=head2 values ($cls)

The values of the transfers.

	[ OrderEnum->values ] # --> [undef, 2, 3]

=head2 stashes ($cls)

Additions of transfers.

	[ OrderEnum->stashes ] # --> [undef, undef, {data => 123}]

=head2 aliases ($cls)

Pseudonyms of transfers.

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

	1;



	require AuthorEnum;
	[ AuthorEnum->aliases ] # --> ['Pushkin Aleksandr Sergeevich', 'Yacheykin Uriy', undef]

=head2 fromName ($cls, $name)

Get Case by name with exceptions.

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

=head2 tryFromName ($cls, $name)

Get Case by name.

	OrderEnum->tryFromName('first')      # -> OrderEnum->first
	OrderEnum->tryFromName('not_exists') # -> undef

=head2 fromValue ($cls, $value)

Get Case by value with exceptions.

	OrderEnum->fromValue(undef) # -> OrderEnum->first
	eval { OrderEnum->fromValue('not-exists') }; $@ # ~> Did not case with value `not-exists`!

=head2 tryFromValue ($cls, $value)

Get Case by value.

	OrderEnum->tryFromValue(undef)        # -> OrderEnum->first
	OrderEnum->tryFromValue('not-exists') # -> undef

=head2 fromStash ($cls, $stash)

Get CASE on addition with exceptions.

	OrderEnum->fromStash(undef) # -> OrderEnum->first
	eval { OrderEnum->fromStash('not-exists') }; $@ # ~> Did not case with stash `not-exists`!

=head2 tryFromStash ($cls, $value)

Get Case for addition.

	OrderEnum->tryFromStash({data => 123}) # -> OrderEnum->other
	OrderEnum->tryFromStash('not-exists')  # -> undef

=head2 fromAlias ($cls, $alias)

Get Case by pseudonym with exceptions.

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

=head2 tryFromAlias ($cls, $alias)

Get case by alias.

	AuthorEnum->tryFromAlias('Yacheykin Uriy') # -> AuthorEnum->yacheykin
	AuthorEnum->tryFromAlias('not-exists')     # -> undef

=head1 FEATURES

=head2 name

 view release on metacpan or  search on metacpan

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

=head1 DESCRIPTION

Projects use the C<.env> configuration file for project configuration, in C<Makefile>, for C<docker> and C<docker compose>. This module allows you to design environment variables as constants of C<perl> modules.

Constants are initialized from C<%ENV>, if there is no value there or it is C<undef>, then from the C<.env> file, and if it is not there, from the C<default> option.

When parsing a file, a syntax error will result in an exception.

The type of an environment variable can be checked using the C<isa> option. It accepts a subroutine or object with the C<${}> operator overloaded. In this case, the value will be passed to C<$_>. If the object has a C<validate> method, like C<Aion::T...