-#!/usr/bin/perl
-
package Squirrel::Role;
-
use strict;
use warnings;
+use base qw(Squirrel);
+
sub _choose_backend {
if ( $INC{"Moose/Role.pm"} ) {
return {
+ backend => 'Moose::Role',
import => \&Moose::Role::import,
unimport => \&Moose::Role::unimport,
}
- } else {
+ }
+ else {
require Mouse::Role;
return {
+ backend => 'Mouse::Role',
import => \&Mouse::Role::import,
unimport => \&Mouse::Role::unimport,
}
}
}
-my %pkgs;
+1;
-sub _handlers {
- my $class = shift;
+__END__
- my $caller = caller(1);
+=head1 NAME
- $pkgs{$caller} = $class->_choose_backend
- unless $pkgs{$caller};
-}
+Squirrel::Role - Use Mouse::Role, unless Moose::Role is already loaded. (DEPRECATED)
-sub import {
- goto $_[0]->_handlers->{import};
-}
+=head1 SYNOPSIS
-sub unimport {
- goto $_[0]->_handlers->{unimport};
-}
+ use Squirrel::Role;
-1;
+=head1 DEPRECATION
+
+C<Squirrel::Role> is deprecated. C<Any::Moose> provides the same functionality,
+but better. :)
+
+=head1 SEE ALSO
+
+L<Any::Moose>
+
+=cut