1 package Perl::Critic::Utils::Moose;
4 use Sub::Exporter -setup => {
5 exports => ['meta_type'],
9 [ 'Moose::Meta::Role' => 'role' ],
10 [ 'Moose::Meta::TypeCoercion' => 'type coercion' ],
11 [ 'Moose::Meta::TypeConstraint' => 'type constraint' ],
13 [ 'Class::MOP::Method' => 'method' ],
14 [ 'Class::MOP::Attribute' => 'attribute' ],
15 [ 'Class::MOP::Class' => 'class' ],
16 [ 'Class::MOP::Module' => 'module' ],
17 [ 'Class::MOP::Package' => 'package' ],
24 my ($class, $name) = @$_;
25 return $name if $meta->isa($class);