Finish Util -> Utils

[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' ],

    [ '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;