view release on metacpan or  search on metacpan

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

#@run emit:listeners „List of listeners”
sub list {
	my ($self) = @_;
	
	my @listeners = sort { $a->{evt} eq $b->{evt}? $a->{nice} <=> $b->{nice}: $a->{evt} cmp $b->{evt} }
		pairmap { my $evt = $a; map { +{ %$_, evt => $evt, act => "$_->{pkg}#$_->{sub}", nice => 0+$_->{nice} } } @$b }
		%{$self->emitter->event};
	
	@listeners = grep { /$self->{mask}/ } @listeners if $self->mask ne "";
	my $evtlen = max map length $_->{evt}, @listeners;
	my $actlen = max map length $_->{act}, @listeners;
	my $nicelen = max map length $_->{nice}, @listeners;
	for my $listener_bag (@listeners) {
		printcolor "#{blue}%+${nicelen}s#r #green%-${evtlen}s #{red}%-${actlen}s #{bold black}%s#r\n", @$listener_bag{qw/nice evt act remark/};
	}
}

1;

__END__

=encoding utf-8

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.0
# 
# # SYNOPSIS
# 

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
#