line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package CloudHealth::API::Call::UpdateTagsForSingleAsset; |
2
|
1
|
|
|
1
|
|
551
|
use Moo; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
8
|
|
3
|
1
|
|
|
1
|
|
435
|
use MooX::StrictConstructor; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
11
|
|
4
|
1
|
|
|
1
|
|
1084
|
use Types::Standard qw/Dict Str ArrayRef Int/; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
9
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
our $tags_cons = Dict[key => Str, value => Str]; |
7
|
|
|
|
|
|
|
our $tag_group_cons = Dict[asset_type => Str, ids => ArrayRef[Int], tags => ArrayRef[$tags_cons]]; |
8
|
|
|
|
|
|
|
has tag_groups => (is => 'ro', isa => ArrayRef[$tag_group_cons], required => 1); |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
sub _body_params { [ |
11
|
1
|
|
|
1
|
|
6
|
{ name => 'tag_groups' }, |
12
|
|
|
|
|
|
|
] } |
13
|
1
|
|
|
1
|
|
3
|
sub _query_params { [ ] } |
14
|
1
|
|
|
1
|
|
3
|
sub _url_params { [ ] } |
15
|
1
|
|
|
1
|
|
22
|
sub _method { 'POST' } |
16
|
1
|
|
|
1
|
|
3
|
sub _url { 'https://chapi.cloudhealthtech.com/v1/custom_tags' } |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
1; |