File Coverage

blib/lib/OpenSearch/Parameters/Cluster/SetDecommissionAwareness.pm
Criterion Covered Total %
statement 15 16 93.7
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 20 23 86.9


line stmt bran cond sub pod time code
1             package OpenSearch::Parameters::Cluster::SetDecommissionAwareness;
2 4     4   2881 use strict;
  4         10  
  4         174  
3 4     4   22 use warnings;
  4         11  
  4         290  
4 4     4   28 use feature qw(state);
  4         13  
  4         509  
5 4     4   2675 use Types::Common::String qw(NonEmptyStr);
  4         191404  
  4         46  
6 4     4   5077 use Moo::Role;
  4         10  
  4         46  
7              
8             with 'OpenSearch::Parameters';
9              
10             has 'attribute' => (
11             is => 'rw',
12             isa => NonEmptyStr,
13             required => 1,
14             );
15              
16             has 'value' => (
17             is => 'rw',
18             isa => NonEmptyStr,
19             required => 1,
20             );
21              
22             around [qw/attribute value/] => sub {
23             my $orig = shift;
24             my $self = shift;
25              
26             if (@_) {
27             $self->$orig(@_);
28             return ($self);
29             }
30             return ( $self->$orig );
31             };
32              
33             sub api_spec {
34 0     0 0   state $s = +{
35             attribute => {
36             encode_func => 'as_is',
37             type => 'path',
38             },
39             value => {
40             encode_func => 'as_is',
41             type => 'path',
42             }
43             };
44             }
45              
46             1;