File Coverage

blib/lib/MouseX/POE/Meta/Role.pm

Criterion	Covered	Total	%
statement	7	7	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	10	100.0

package MouseX::POE::Meta::Role;
BEGIN {
  $MouseX::POE::Meta::Role::VERSION = '0.214';
}
# ABSTRACT: Pay no attention to this.
use Mouse::Role;
with qw(MouseX::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 Mouse::Role;

1;


__END__