We don't need to do both eval and Module::Name -> Module/Name.pm munging

[gitmo/Mouse.git] / lib / Squirrel / Role.pm

#!/usr/bin/env perl
package Squirrel::Role;
use strict;
use warnings;

sub _choose_backend {
    if ( $INC{"Moose/Role.pm"} ) {
        return {
            import   => \&Moose::Role::import,
            unimport => defined &Moose::Role::unimport ? \&Moose::Role::unimport : sub {},
        }
    } else {
        require Mouse::Role;
        return {
            import   => \&Mouse::Role::import,
            unimport => \&Mouse::Role::unimport,
        }
    }
}

my %pkgs;

sub _handlers {
    my $class = shift;

    my $caller = caller(1);

    $pkgs{$caller} = $class->_choose_backend
        unless $pkgs{$caller};
}

sub import {
    goto $_[0]->_handlers->{import};
}

sub unimport {
    goto $_[0]->_handlers->{unimport};
}

1;