File Coverage

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

Criterion	Covered	Total	%
statement	44	46	95.6
branch	3	4	75.0
condition			n/a
subroutine	16	17	94.1
pod	1	3	33.3
total	64	70	91.4

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

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

use Try::Tiny;

use Types::Path::Tiny -types;

use List::Objects::WithUtils;
use List::Objects::Types -types;

use Moo;
with 'Bot::Cobalt::Conf::Role::Reader';


has cfg_path => (
  required  => 1,
  is        => 'rwp',
  isa       => Path,
  coerce    => 1,
);

has cfg_as_hash => (
  lazy      => 1,
  is        => 'rwp',
  isa       => HashObj,
  coerce    => 1,
  builder   => '_build_cfg_hash',
);

has debug => (
  is        => 'rw',
  isa       => Bool,
  builder   => sub { 0 },
);

sub BUILD {
  my ($self) = @_;
  $self->cfg_as_hash
}

sub _build_cfg_hash {
  my ($self) = @_;

  if ($self->debug) {
    warn
      ref $self, " (debug) reading cfg_as_hash from ", $self->cfg_path, "\n"
  }

  my $cfg = $self->readfile( $self->cfg_path );

  my $err; try {
    $self->validate($cfg)
  } catch {
    $err = $_;
    undef
  } or croak "Conf validation failed for ". $self->cfg_path .": $err";

  $cfg
}

sub rehash {
  my ($self) = @_;

  $self->_set_cfg_as_hash( $self->_build_cfg_hash )
}

sub validate {
  my ($self, $cfg) = @_;

  1
}

1;
__END__