File Coverage

blib/lib/Bot/Cobalt/IRC/Event/Mode.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

package Bot::Cobalt::IRC::Event::Mode;
$Bot::Cobalt::IRC::Event::Mode::VERSION = '0.021003';
use strictures 2;

use Bot::Cobalt;
use Bot::Cobalt::Common qw/:types/;

use IRC::Utils qw/parse_mode_line eq_irc/;

use Moo;
extends 'Bot::Cobalt::IRC::Event';

has mode   => (
  required  => 1,
  is        => 'rw',
  isa       => Str,
);

has target => (
  required  => 1,
  is        => 'rw',
  isa       => Str,
);

has is_umode => (
  lazy      => 1,
  is        => 'ro',
  isa       => Bool,
  default   => sub {
    my ($self)  = @_;
    my $casemap = core->get_irc_casemap( $self->context );
    my $irc_obj = core->get_irc_object( $self->context );
    eq_irc($irc_obj->nick_name, $self->target)
  },
);

has channel => (
  lazy      => 1,
  is        => 'rw',
  default   => sub {
    my ($self) = @_;
    $self->is_umode ? undef : $self->target
  },
);

has args => (
  lazy      => 1,
  is        => 'rw',
  isa       => ArrayObj,
  coerce    => 1,
  default   => sub { [] },
);

has hash => (
  lazy      => 1,
  is        => 'ro',
  isa       => HashObj,
  coerce    => 1,
  predicate => 'has_hash',
  builder   => '_build_hash',
);

sub _build_hash {
  my ($self) = @_;
  parse_mode_line( $self->mode, @{ $self->args })
}

1;
__END__