blib/lib/WebService/Mattermost/V4/API/Object/Role/RequestID.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 6 | 8 | 75.0 |
branch | n/a | ||
condition | n/a | ||
subroutine | 2 | 3 | 66.6 |
pod | n/a | ||
total | 8 | 11 | 72.7 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package WebService::Mattermost::V4::API::Object::Role::RequestID; 2: 3: # ABSTRACT: Adds a "request_id" field to an object. 4: 5: use Moo::Role; 6: use Types::Standard qw(Maybe Str); 7: 8: ################################################################################ 9: 10: has request_id => (is => 'ro', isa => Maybe[Str], lazy => 1, builder => 1); 11: 12: ################################################################################ 13: 14: sub _build_request_id { 15: my $self = shift; 16: 17: return $self->raw_data->{request_id}; 18: } 19: 20: ################################################################################ 21: 22: 1; 23: 24: __END__ 25: 26: =pod 27: 28: =encoding UTF-8 29: 30: =head1 NAME 31: 32: WebService::Mattermost::V4::API::Object::Role::RequestID - Adds a "request_id" field to an object. 33: 34: =head1 VERSION 35: 36: version 0.28 37: 38: =head1 DESCRIPTION 39: 40: Attach a RequestID to a v4::Object object. 41: 42: =head2 ATTRIBUTES 43: 44: =over 4 45: 46: =item C<request_id> 47: 48: UUID. 49: 50: =back 51: 52: =head1 AUTHOR 53: 54: Mike Jones <mike@netsplit.org.uk> 55: 56: =head1 COPYRIGHT AND LICENSE 57: 58: This software is Copyright (c) 2020 by Mike Jones. 59: 60: This is free software, licensed under: 61: 62: The MIT (X11) License 63: 64: =cut 65: |