File Coverage

blib/lib/Net/Async/Slack/Event/PresenceChange.pm

Criterion	Covered	Total	%
statement	10	14	71.4
branch			n/a
condition	0	3	0.0
subroutine	4	7	57.1
pod	0	4	0.0
total	14	28	50.0

package Net::Async::Slack::Event::PresenceChange;

use strict;
use warnings;

our $VERSION = '0.015'; # VERSION

use Net::Async::Slack::EventType;

=head1 DESCRIPTION

{
"type":"presence_change",
"presence":"active",
"user":"U5GSPCF1C"
}

=cut

sub user {
    my ($self) = @_;
    $self->{user} //= $self->slack->user_info($self->user_id)
}
sub user_id { shift->{user_id} }

sub presence { shift->{presence} }

sub type { 'presence_change' }

1;