use warnings;
use metaclass;
-use Carp 'confess';
use Scalar::Util 'blessed';
-our $VERSION = '0.56';
+our $VERSION = '0.72';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
sub apply {
my ($self, $role, $object) = @_;
+ return
+ if $object->can('meta')
+ && $object->meta->can('does_role')
+ && $object->meta->does_role( $role->name );
+
my $anon_role_key = (blessed($object) . $role->name);
my $class;
=head1 COPYRIGHT AND LICENSE
-Copyright 2006-2008 by Infinity Interactive, Inc.
+Copyright 2006-2009 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>