use strict;
use warnings;
use base qw/Exporter/;
+
use Carp qw(confess);
use B ();
# Moose::Util compatible utilities
sub find_meta{
- return Mouse::Module::class_of( $_[0] );
+ return Mouse::Meta::Module::class_of( $_[0] );
}
sub does_role{
my ($class_or_obj, $role) = @_;\r
\r
- my $meta = Mouse::Module::class_of($class_or_obj);\r
+ my $meta = Mouse::Meta::Module::class_of($class_or_obj);\r
\r
return 0 unless defined $meta;\r
return 1 if $meta->does_role($role);\r