blib/lib/WebService/Mattermost/V4/API/Object/Role/StatusCode.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::StatusCode; 2: 3: # ABSTRACT: Adds a "status_code" field to an object. 4: 5: use Moo::Role; 6: use Types::Standard qw(Int Maybe); 7: 8: ################################################################################ 9: 10: has status_code => (is => 'ro', isa => Maybe[Int], lazy => 1, builder => 1); 11: 12: ################################################################################ 13: 14: sub _build_status_code { 15: my $self = shift; 16: 17: return $self->raw_data->{status_code}; 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::StatusCode - Adds a "status_code" field to an object. 33: 34: =head1 VERSION 35: 36: version 0.28 37: 38: =head1 DESCRIPTION 39: 40: Attach a StatusCode to a v4::Object object. 41: 42: =head2 ATTRIBUTES 43: 44: =over 4 45: 46: =item C<status_code> 47: 48: =back 49: 50: =head1 AUTHOR 51: 52: Mike Jones <mike@netsplit.org.uk> 53: 54: =head1 COPYRIGHT AND LICENSE 55: 56: This software is Copyright (c) 2020 by Mike Jones. 57: 58: This is free software, licensed under: 59: 60: The MIT (X11) License 61: 62: =cut 63: |