File Coverage

blib/lib/MouseX/POE/Role.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	1	2	50.0
total	29	33	87.8

package MouseX::POE::Role;
$MouseX::POE::Role::VERSION = '0.216';
# ABSTRACT: Eventful roles
use MouseX::POE::Meta::Role;

use Mouse::Exporter;
use Mouse::Util::MetaRole;
use Mouse::Role;

Mouse::Exporter->setup_import_methods(
    as_is           => [qw(event)],
    also            => 'Mouse::Role',
);

sub init_meta {
    my ( $class, %args ) = @_;

    my $for = $args{for_class};
    eval qq{package $for; use POE; };

    my $meta = Mouse->init_meta( %args );

    Mouse::Util::MetaRole::apply_metaroles(
      for     => $args{for_class},
      role_metaroles => {
        role => ['MouseX::POE::Meta::Role','MouseX::POE::Meta::Trait'],
      },
    );

    Mouse::Util::MetaRole::apply_base_class_roles(
      for_class => $args{for_class},
      roles => ['MouseX::POE::Meta::Trait::Object','MouseX::POE::Meta::Trait','MouseX::POE::Meta::Trait::Class'],
    );

    return $meta;
}

sub event {
    my $class = Mouse::Meta::Class->initialize( scalar caller );
    $class->add_state_method( @_ );
}

1;

__END__