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


line stmt bran cond sub pod time code
1             # ============================================================================
2             package MooseX::App::Plugin::MutexGroup::Meta::Attribute;
3             # ============================================================================
4              
5 3     3   20287 use Moose::Role;
  3         6  
  3         24  
6 3     3   15194 use namespace::autoclean;
  3         7  
  3         27  
7              
8             has 'mutexgroup' => (
9             is => 'ro',
10             isa => 'Str',
11             );
12              
13             around 'cmd_tags_list' => sub {
14             my $orig = shift;
15             my ($self) = @_;
16              
17             my @tags = $self->$orig();
18              
19             push(@tags,'MutexGroup')
20             if $self->can('mutexgroup')
21             && $self->mutexgroup;
22              
23             return @tags;
24             };
25              
26             {
27             package Moose::Meta::Attribute::Custom::Trait::AppMutexGroup;
28              
29 3     3   604 use strict;
  3         6  
  3         166  
30 3     3   30 use warnings;
  3         6  
  3         188  
31              
32 0     0     sub register_implementation { return 'MooseX::App::Plugin::MutexGroup::Meta::Attribute' }
33             }
34              
35             1;