use Scalar::Util 'blessed';
-our $VERSION = '0.65';
+our $VERSION = '0.87';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
$class = $ANON_CLASSES{$anon_role_key};
}
else {
- my $obj_meta = eval { $object->meta } || 'Moose::Meta::Class';
+ my $obj_meta = Class::MOP::class_of($object) || 'Moose::Meta::Class';
$class = $obj_meta->create_anon_class(
superclasses => [ blessed($object) ]
);
=head1 COPYRIGHT AND LICENSE
-Copyright 2006-2008 by Infinity Interactive, Inc.
+Copyright 2006-2009 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>