File Coverage

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

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package MouseX::POE::Meta::Role;
$MouseX::POE::Meta::Role::VERSION = '0.216';
# 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__