File Coverage

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

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	19	19	100.0

package Bot::Cobalt::Conf::File::Core;
$Bot::Cobalt::Conf::File::Core::VERSION = '0.021001';
use v5.10;
use strictures 2;

use Carp;

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

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

has language => (
  lazy      => 1,
  is        => 'rwp',
  isa       => Str,
  default   => sub {
    my ($self) = @_;
    $self->cfg_as_hash->{Language} // 'english' ;
  },
);

has paths => (
  lazy      => 1,
  weak_ref  => 1,
  is        => 'rwp',
  isa       => HashRef,
  default   => sub {
    my ($self) = @_;
    ref $self->cfg_as_hash->{Paths} eq 'HASH' ?
      $self->cfg_as_hash->{Paths}
      : {}
  },
);

has irc => (
  lazy      => 1,
  weak_ref  => 1,
  is        => 'rwp',
  isa       => HashRef,
  default   => sub {
    my ($self) = @_;
    $self->cfg_as_hash->{IRC}
  },
);

has opts => (
  lazy      => 1,
  weak_ref  => 1,
  is        => 'rwp',
  isa       => HashRef,
  default   => sub {
    my ($self) = @_;
    $self->cfg_as_hash->{Opts}
  },
);

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

  my $path = $self->cfg_path;

  for my $expected_hash (qw/ IRC Opts /) {
    unless (defined $cfg->{$expected_hash}) {
      die "Directive '$expected_hash' not found; should be a hash\n"
    }

    unless (ref $cfg->{$expected_hash} eq 'HASH') {
      die "Directive '$expected_hash' should be a hash\n"
    }

    if (defined $cfg->{Paths} && ref $cfg->{Paths} ne 'HASH') {
      die "Directive 'Paths' specified but not a hash\n"
    }
  }

  1
};


1;
__END__