File Coverage

blib/lib/Namespace/Dispatch.pm

Criterion	Covered	Total	%
statement	70	74	94.5
branch	17	20	85.0
condition	1	3	33.3
subroutine	17	17	100.0
pod	0	3	0.0
total	105	117	89.7

package Namespace::Dispatch;
our $VERSION = '0.07';

use 5.010;
use UNIVERSAL::filename;

sub import {
    my $pkg    = shift;
    my $caller = caller;
    my $meta   = ref($caller->meta) if $caller->can("meta");

    if ( $meta && $meta =~ m/(Class$|Role$)/ ) {
        eval qq{ use Moose::Role };
        Moose::Util::apply_all_roles($caller, $pkg, {-excludes => "import"});
    } else {
        for (qw(has_leaf dispatch leaves)) {
            *{$caller . "::" . $_} = *{$_};
        }
    }

}

sub has_leaf {
    my $class   = ref($_[0]) ? ref(shift) : shift;
    my $name    = shift;
    my @leaves = @{$class->leaves} if $class->can("leaves");
    if ( $name ~~ @leaves ) {
        return $class . "::" . ucfirst($name);
    } else {
        return 0;
    }
}

sub dispatch {
    my $class   = ref($_[0]) ? ref(shift) : shift;
    my $next    = shift;
    my $handler = $class->has_leaf($next);

    if ($handler) {

        eval qq{ use $handler };
        die $@ if $@;

        if ($handler->can("dispatch")) {
            return $handler->dispatch(@_);
        } else {
            die "$handler is not set up yet (forgot to use Namespace::Dispatch?)";
        }

    } else {
        return $class;
    }

}

sub leaves {
    my $class   = ref($_[0]) ? ref(shift) : shift;
    my $file = $class->filename;
    $file =~ s{.pm$}{}g;
    use File::Basename;
    my @submodules = map { $_ = lc basename($_) } glob "$file/*.pm";
    map { $_ =~ s{\.pm$}{}; } @submodules;
    [@submodules];
}

1;
__END__