File Coverage

blib/lib/Bot/Cobalt/Core/Role/IRC.pm

Criterion	Covered	Total	%
statement	33	41	80.4
branch	6	14	42.8
condition	4	12	33.3
subroutine	10	10	100.0
pod	4	4	100.0
total	57	81	70.3

package Bot::Cobalt::Core::Role::IRC;
$Bot::Cobalt::Core::Role::IRC::VERSION = '0.021001';
use 5.10.1;
use strictures 2;
no warnings 'once';

use Bot::Cobalt::Common ':types';

use Scalar::Util 'blessed';


use Moo::Role;
requires qw/ log debug /;


has 'Servers' => (
  is      => 'rw',
  isa     => HashRef,
  default => sub { +{} },
);


sub is_connected {
  my ($self, $context) = @_;
  return unless $context and exists $self->Servers->{$context};
  $self->Servers->{$context}->connected
}

*get_irc_server = *get_irc_context;
sub get_irc_context {
  my ($self, $context) = @_;
  return unless defined $context and exists $self->Servers->{$context};
  $self->Servers->{$context}
}

*get_irc_object = *get_irc_obj;
sub get_irc_obj {
  my ($self, $context) = @_;
  if (! $context) {
    $self->log->warn(
      "get_irc_obj called with no context at "
        .join ' ', (caller)[0,2]
    );
    return
  }

  my $c_obj = $self->get_irc_context($context);
  unless ($c_obj && blessed $c_obj) {
    $self->log->warn(
      "get_irc_obj called but context $context not found at "
        .join ' ', (caller)[0,2]
    );
    return
  }

  blessed $c_obj->irc ? $c_obj->irc : ()
}

sub get_irc_casemap {
  my ($self, $context) = @_;
  if (! $context) {
    $self->log->warn(
      "get_irc_casemap called with no context at "
        .join ' ', (caller)[0,2]
    );
    return
  }

  my $c_obj = $self->get_irc_context($context);
  unless ($c_obj && blessed $c_obj) {
    $self->log->warn(
      "get_irc_casemap called but context $context not found at "
        .join ' ', (caller)[0,2]
    );
    return
  }

  $c_obj->casemap
}


1;
__END__