File Coverage

blib/lib/MooseX/App/Plugin/MutexGroup/Meta/Attribute.pm

Criterion	Covered	Total	%
statement	12	13	92.3
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod			n/a
total	16	18	88.8

# ============================================================================
package MooseX::App::Plugin::MutexGroup::Meta::Attribute;
# ============================================================================

use Moose::Role;
use namespace::autoclean;

has 'mutexgroup' => (
    is  => 'ro',
    isa => 'Str',
);

around 'cmd_tags_list' => sub {
    my $orig = shift;
    my ($self) = @_;

    my @tags = $self->$orig();

    push(@tags,'MutexGroup')
        if $self->can('mutexgroup')
        && $self->mutexgroup;

    return @tags;
};

{
    package Moose::Meta::Attribute::Custom::Trait::AppMutexGroup;

    use strict;
    use warnings;

    sub register_implementation { return 'MooseX::App::Plugin::MutexGroup::Meta::Attribute' }
}

1;