Add Role::Application to meta_type

[gitmo/Perl-Critic-Dynamic-Moose.git] / lib / Perl / Critic / Utils / Moose.pm

package Perl::Critic::Utils::Moose;
use strict;
use warnings;
use Sub::Exporter -setup => {
    exports => ['meta_type'],
};

my @types = (
    [ 'Moose::Meta::Role'              => 'role'            ],
    [ 'Moose::Meta::TypeCoercion'      => 'type coercion'   ],
    [ 'Moose::Meta::TypeConstraint'    => 'type constraint' ],
    [ 'Moose::Meta::Role::Application' => 'role application' ],

    [ 'Class::MOP::Method'             => 'method'          ],
    [ 'Class::MOP::Attribute'          => 'attribute'       ],
    [ 'Class::MOP::Class'              => 'class'           ],
    [ 'Class::MOP::Module'             => 'module'          ],
    [ 'Class::MOP::Package'            => 'package'         ],
);

sub meta_type {
    my $meta = shift;

    for (@types) {
        my ($class, $name) = @$_;
        return $name if $meta->isa($class);
    }

    return undef;
}

1;