File Coverage

blib/lib/WebService/Mattermost/V4/API/Object/Role/LastActivityAt.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


line stmt bran cond sub pod time code
1             package WebService::Mattermost::V4::API::Object::Role::LastActivityAt;
2              
3             # ABSTRACT: Adds a "last_activity_at" field to an object.
4              
5 7     7   3634 use Moo::Role;
  7         17  
  7         87  
6 7     7   2996 use Types::Standard qw(InstanceOf Int Maybe);
  7         21  
  7         46  
7              
8             ################################################################################
9              
10             has last_activity_at => (is => 'ro', isa => Maybe[Int], lazy => 1, builder => 1);
11             has last_activity => (is => 'ro', isa => Maybe[InstanceOf['DateTime']], lazy => 1, builder => 1);
12              
13             ################################################################################
14              
15             sub _build_last_activity_at {
16 0     0         my $self = shift;
17              
18 0               return $self->raw_data->{last_activity_at};
19             }
20              
21             sub _build_last_activity {
22 0     0         my $self = shift;
23              
24 0               return $self->_from_epoch($self->last_activity_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::LastActivityAt - Adds a "last_activity_at" field to an object.
40            
41             =head1 VERSION
42            
43             version 0.26
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<last_activity_at>
54            
55             UNIX timestamp.
56            
57             =item C<last_activity>
58            
59             C<DateTime> object.
60            
61             =back
62            
63             =head1 AUTHOR
64            
65             Mike Jones <mike@netsplit.org.uk>
66            
67             =head1 COPYRIGHT AND LICENSE
68            
69             This software is Copyright (c) 2020 by Mike Jones.
70            
71             This is free software, licensed under:
72            
73             The MIT (X11) License
74            
75             =cut
76