Aion-Emitter

 view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

```

Файл etc/annotation/listen.ann:
```text
Listener::RadiusListener#listen,6=Event::BallEvent
Listener::WeightListener#listen,6=Event::BallEvent
Listener::WeightListener#minimize,6=Event::BallEvent#mini „Minimize version”
```

```perl
use lib 'lib';

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

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

$emitter->emit($ballEvent);

$ballEvent->radius # -> 10

lib/Aion/Emitter.md  view on Meta::CPAN

```

Файл etc/annotation/listen.ann:
```text
Listener::RadiusListener#listen,6=Event::BallEvent
Listener::WeightListener#listen,6=Event::BallEvent
Listener::WeightListener#minimize,6=Event::BallEvent#mini „Minimize version”
```

```perl
use lib 'lib';

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

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

$emitter->emit($ballEvent);

$ballEvent->radius # -> 10

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

	1;

File etc/annotation/listen.ann:

	Listener::RadiusListener#listen,6=Event::BallEvent
	Listener::WeightListener#listen,6=Event::BallEvent
	Listener::WeightListener#minimize,6=Event::BallEvent#mini „Minimize version”



	use lib 'lib';
	
	use Aion::Emitter;
	use Event::BallEvent;
	
	my $emitter = Aion::Emitter->new;
	my $ballEvent = Event::BallEvent->new;
	
	$emitter->emit($ballEvent);
	
	$ballEvent->radius # -> 10

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

#@< EOF
# 
# Файл etc/annotation/listen.ann:
#@> etc/annotation/listen.ann
#>> Listener::RadiusListener#listen,6=Event::BallEvent
#>> Listener::WeightListener#listen,6=Event::BallEvent
#>> Listener::WeightListener#minimize,6=Event::BallEvent#mini „Minimize version”
#@< EOF
# 
subtest 'SYNOPSIS' => sub { 
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;