Aion-Emitter

 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
# 
# 0.1.1
# 
# # SYNOPSIS
# 

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

use lib 'lib';

use Aion::Emitter;
use Event::BallEvent;

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).
# 
# Слушатель регистрируется как эон в плероме и будет всегда представлен одним объектом.
# 
# Метод обрабатывающий события отмечается аннотацией `#@listen`.
# 

t/aion/emitter/listeners-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...
# 
# Aion::Emitter::ListenersRun - команда отображающая список слушателей
# 
# # SYNOPSIS
# 
# Файл etc/annotation/eon.ann:
#@> etc/annotation/eon.ann
#>> Aion::Emitter#new,1=Aion::Emitter
#@< EOF
# 

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

subtest 'SYNOPSIS' => sub { 
use Aion::Format qw/trappout/;
use Aion::Emitter::ListenersRun;

my $listenersRun = Aion::Emitter::ListenersRun->new;

my $output = trappout {
	$listenersRun->list;
};

::like scalar do {$output}, qr{„Minimize version”}, '$output # ~> „Minimize version”'; undef $::_g0; undef $::_e0;

# 
# # DESCRIPTION
# 
# Команда отображающая список слушателей.
# 
# # FEATURES
# 
# ## mask
#