More tests

[gitmo/Perl-Critic-Dynamic-Moose.git] / lib / Perl / Critic / Policy / DynamicMoose / ProhibitPublicBuilders.pm

package Perl::Critic::Policy::DynamicMoose::ProhibitPublicBuilders;
use Moose;
extends 'Perl::Critic::Policy::DynamicMoose';

Readonly::Scalar my $DESC => q{Builder method name without a leading underscore};
Readonly::Scalar my $EXPL => q{Prefix builder method names with an underscore};

sub violates_metaclass {
    my $self = shift;
    my $meta = shift;

    my @violations;

    my $attributes = $meta->get_attribute_map;
    for my $name (keys %$attributes) {
        my $attribute = $attributes->{$name};

        next if !$attribute->has_builder;

        if ($attribute->builder !~ /^_/) {
            push @violations, $self->violation($DESC, $EXPL);
        }
    }

    return @violations;
}

no Moose;

1;