# ============================================================================
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;