MooseX::POE::Meta::Role - Pay no attention to this.

MooseX-POE documentation Contained in the MooseX-POE distribution.

Index

Code Index:

NAME

Top

MooseX::POE::Meta::Role - Pay no attention to this.

VERSION

Top

version 0.214

AUTHORS

Top

COPYRIGHT AND LICENSE

Top

This software is copyright (c) 2010 by Chris Prather, Ash Berlin, Chris Williams, Yuval Kogman, Torsten Raudssus.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

MooseX-POE documentation Contained in the MooseX-POE distribution. 
package MooseX::POE::Meta::Role;
BEGIN {
  $MooseX::POE::Meta::Role::VERSION = '0.214';
}
# ABSTRACT: Pay no attention to this.
use Moose::Role;
with qw(MooseX::POE::Meta::Trait);

around default_events => sub {
    my ( $orig, $self ) = @_;
    my $events = $orig->($self);
    push @$events, grep { s/^on_(\w+)/$1/; } $self->get_method_list;
    return $events;
};

around get_state_method_name => sub {
    my ( $orig, $self, $name ) = @_;
    return 'on_' . $name if $self->has_method( 'on_' . $name );
    return $orig->( $self, $name );
};


no Moose::Role;

1;


__END__