File Coverage

blib/lib/MooseX/Event.pm

Criterion	Covered	Total	%
statement	25	35	71.4
branch	2	6	33.3
condition			n/a
subroutine	7	10	70.0
pod	3	3	100.0
total	37	54	68.5

# ABSTRACT: A Node style event Role for Moose
package MooseX::Event;
{
  $MooseX::Event::VERSION = 'v0.2.0';
}
use Any::Moose ();
use Any::Moose '::Exporter';

{
    my($import,$unimport,$init_meta) = any_moose('::Exporter')->build_import_methods(
        as_is => [qw( has_event has_events )],
        also => any_moose(),
        );

    sub import {
        my $class = shift;

        my $with_args = {};

        my @args;
        while (local $_ = shift @_) {
            if ( $_ eq '-alias' ) {
                $with_args->{'-alias'} = shift;
            }
            elsif ( $_ eq '-excludes' ) {
                $with_args->{'-excludes'} = shift;
            }
            else {
                push @args, $_;
            }
        }

        my $caller = caller();
        $class->$import( { into => $caller }, @args );

        # I would expect that 'base_class_roles' in setup_import_methods would
        # do the below, but no, it doesn't.
        if ( ! any_moose('::Util')->can('does_role')->( $caller, 'MooseX::Event::Role' ) ) {
             require MooseX::Event::Role;
             MooseX::Event::Role->meta->apply( $caller->meta, %{$with_args} );
        }
    }

    sub unimport { goto $unimport; }
    *init_meta = $init_meta if defined $init_meta;
}


our @listener_wrappers;


sub add_listener_wrapper {
    my( $wrapper ) = @_[1..$#_];
    push @listener_wrappers, $wrapper;
    return $wrapper;
}


sub remove_listener_wrapper {
    my( $wrapper ) = @_[1..$#_];
    @listener_wrappers = grep { $_ != $wrapper } @listener_wrappers;
    return;
}




my $stub = sub {};
sub has_event {
    my $class = caller();
    $class->meta->add_method( "event:$_" => $stub ) for @_;
}

BEGIN { *has_events = \&has_event }

no Any::Moose '::Exporter';

1;


__END__