File Coverage

blib/lib/Bot/Cobalt/IRC/Server.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition	2	4	50.0
subroutine	7	7	100.0
pod	2	2	100.0
total	29	31	93.5

package Bot::Cobalt::IRC::Server;
$Bot::Cobalt::IRC::Server::VERSION = '0.021002';
## A server context.

use v5.10;
use strictures 2;

use Bot::Cobalt::Common qw/:types/;
use IRC::Utils qw/lc_irc uc_irc/;

use Moo;

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

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

has irc => (
  is        => 'rw',
  isa       => Object,
  predicate => 'has_irc',
  clearer   => 'clear_irc',
);

has connected => (
  lazy      => 1,
  is        => 'rw',
  isa       => Bool,
  clearer   => 'clear_connected',
  default   => sub { 0 },
);

has connectedat => (
  lazy      => 1,
  is        => 'rw',
  isa       => Num,
  default   => sub { 0 },
);

has casemap => (
  lazy      => 1,
  is        => 'rw',
  isa       => Str,
  default   => sub { 'rfc1459' },
);

has maxmodes => (
  lazy      => 1,
  is        => 'rw',
  isa       => Int,
  default   => sub { 3 },
);

has maxtargets => (
  lazy      => 1,
  is        => 'rw',
  isa       => Int,
  default   => sub { 4 },
);

sub lowercase {
  my ($self, $string) = @_;
  lc_irc( $string // '', $self->casemap )
}

sub uppercase {
  my ($self, $string) = @_;
  uc_irc( $string // '', $self->casemap )
}

1;
__END__