File Coverage

blib/lib/Bot/Cobalt/Conf/File/Channels.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	22	23	95.6

package Bot::Cobalt::Conf::File::Channels;
$Bot::Cobalt::Conf::File::Channels::VERSION = '0.021001';
use strictures 2;
use Carp;

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


use Moo;
extends 'Bot::Cobalt::Conf::File';


sub context {
  my ($self, $context) = @_;
  croak "context() requires a server context identifier"
    unless defined $context;

  $self->cfg_as_hash->{$context}
}


around 'validate' => sub {
  my ($orig, $self, $cfg) = @_;

  my @contexts = keys %$cfg;
  die "There are no contexts defined.\n" unless @contexts;

  for my $context (@contexts) {
    die "Context directive $context is not a hash"
      unless ref $cfg->{$context} eq 'HASH';
  }

  1
};


1;
__END__