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   25488 use Moose::Role;
  3         8  
  3         28  
6 3     3   17031 use namespace::autoclean;
  3         10  
  3         28  
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   732 use strict;
  3         9  
  3         179  
30 3     3   21 use warnings;
  3         6  
  3         243  
31              
32 0     0     sub register_implementation { return 'MooseX::App::Plugin::MutexGroup::Meta::Attribute' }
33             }
34              
35             1;