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