File Coverage

blib/lib/MojoX/GlobalEvents.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	8	8	100.0
condition	6	6	100.0
subroutine	9	9	100.0
pod	3	3	100.0
total	67	67	100.0

package MojoX::GlobalEvents;

# ABSTRACT: A module to handle events

use strict;
use warnings;

use File::Find::Rule;
use File::Spec;
use Scalar::Util qw(blessed);

use base 'Exporter';
our @EXPORT = qw(on publish);

our $VERSION = 0.04;

my %subscriber;

sub init {
    my ($class, $namespace) = @_;

    my @spaces = split /::/, $namespace;
    my @dirs   = map{ File::Spec->catdir( $_, @spaces ) }@INC;
    my @files  = File::Find::Rule->file->name( '*.pm' )->in( @dirs );

    for my $file ( @files ) {
        require $file;
    }
}

sub on {
    my $object = shift;

    my ($event,$sub) = @_;

    if ( !blessed $object ) {
        $sub    = $event;
        $event  = $object;
        $object = '';
    }

    return if ref $event or !ref $sub or ref $sub ne 'CODE';

    my $package = "$object";
    $package    = caller if !$package;
    $subscriber{$event}->{$package} = $sub;

    return 1;
}

sub publish {
    my ($event, @param) = @_;

    for my $package ( sort keys %{ $subscriber{$event} || {} } ) {
        $subscriber{$event}->{$package}->(@param);
    }

    return 1;
}


1;

__END__