X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F55namespaces_cleaned.t;h=176de5e79fbfdddf4fa878598f021c5d21e7967c;hb=7850f06e41a420dab9225002a59734ea7bffb852;hp=254fdd769000d0f97cdd29e45125c8a722558790;hpb=64c50e81078cbe18780c68b0397d34e49c30cd1e;p=dbsrgits%2FDBIx-Class.git diff --git a/t/55namespaces_cleaned.t b/t/55namespaces_cleaned.t index 254fdd7..176de5e 100644 --- a/t/55namespaces_cleaned.t +++ b/t/55namespaces_cleaned.t @@ -85,11 +85,11 @@ my $skip_idx = { map { $_ => 1 } ( 'DBIx::Class::_Util', ) }; -my $has_cmop = eval { require Class::MOP }; +my $has_moose = eval { require Moose::Util }; # can't use Class::Inspector for the mundane parts as it does not # distinguish imports from anything else, what a crock of... -# Class::MOP is not always available either - hence just do it ourselves +# Moose is not always available either - hence just do it ourselves my $seen; #inheritance means we will see the same method multiple times @@ -105,7 +105,7 @@ for my $mod (@modules) { my %parents = map { $_ => 1 } @{mro::get_linear_isa($mod)}; my %roles; - if ($has_cmop and my $mc = Class::MOP::class_of($mod)) { + if ($has_moose and my $mc = Moose::Util::find_meta($mod)) { if ($mc->can('calculate_all_roles_with_inheritance')) { $roles{$_->name} = 1 for ($mc->calculate_all_roles_with_inheritance); }