package Bot::Cobalt::IRC::Event::Kick;
our $VERSION = '0.014';
use Moo;
use strictures 1;
use Bot::Cobalt::Common qw/:types/;
extends 'Bot::Cobalt::IRC::Event::Channel';
has 'kicked' => ( is => 'rw', isa => Str, required => 1 );
has 'reason' => ( is => 'rw', isa => Str, required => 1 );
1;
__END__
=pod
=head1 NAME
Bot::Cobalt::IRC::Event::Kick - IRC Event subclass for kick events
=head1 SYNOPSIS
my $kicked_user = $kick_ev->kicked;
my $reason = $kick_ev->reason;
=head1 DESCRIPTION
This is the L<Bot::Cobalt::IRC::Event::Channel> subclass for channel kick
events.
=head2 kicked
Returns the kicked user's nickname.
=head2 reason
Returns the supplied kick reason string.
=head1 AUTHOR
Jon Portnoy <avenj@cobaltirc.org>
L<http://www.cobaltirc.org>
=cut