File Coverage

blib/lib/WebService/Mattermost/V4/API/Object/Role/ExpiresAt.pm

Criterion	Covered	Total	%
statement	6	10	60.0
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod			n/a
total	8	14	57.1

package WebService::Mattermost::V4::API::Object::Role::ExpiresAt;
 2: 
 3: # ABSTRACT: Adds an "expires_at" field to an object. 4: 
 5: use Moo::Role;
 6: use Types::Standard qw(InstanceOf Int Maybe);
 7: 
 8: ################################################################################
 9: 
10: has expires_at => (is => 'ro', isa => Maybe[Int],                    lazy => 1, builder => 1);
11: has expires    => (is => 'ro', isa => Maybe[InstanceOf['DateTime']], lazy => 1, builder => 1);
12: 
13: ################################################################################
14: 
15: sub _build_expires_at {
16:     my $self = shift;
17: 
18:     return $self->raw_data->{expires_at};
19: }
20: 
21: sub _build_expires {
22:     my $self = shift;
23: 
24:     return $self->_from_epoch($self->expires_at);
25: }
26: 
27: ################################################################################
28: 
29: 1;
30: 
31: __END__
32: 
33: =pod
34: 
35: =encoding UTF-8
36: 
37: =head1 NAME
38: 
39: WebService::Mattermost::V4::API::Object::Role::ExpiresAt - Adds an "expires_at" field to an object.
40: 
41: =head1 VERSION
42: 
43: version 0.28
44: 
45: =head1 DESCRIPTION
46: 
47: Attach common timestamps to a v4::Object object.
48: 
49: =head2 ATTRIBUTES
50: 
51: =over 4
52: 
53: =item C<expires_at>
54: 
55: UNIX timestamp.
56: 
57: =item C<expires>
58: 
59: C<DateTime> object.
60: 
61: =back
62: 
63: =head1 NAME
64: 
65: WebService::Mattermost::V4::API::Object::Role::ExpiresAt
66: 
67: =head1 AUTHOR
68: 
69: Mike Jones L<email:[e-mail]>
70: 
71: =head1 AUTHOR
72: 
73: Mike Jones <[e-mail]>
74: 
75: =head1 COPYRIGHT AND LICENSE
76: 
77: This software is Copyright (c) 2020 by Mike Jones.
78: 
79: This is free software, licensed under:
80: 
81:   The MIT (X11) License
82: 
83: =cut
84: