File Coverage

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

Criterion	Covered	Total	%
statement	66	68	97.0
branch	15	22	68.1
condition	3	9	33.3
subroutine	19	19	100.0
pod	5	5	100.0
total	108	123	87.8

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

use Scalar::Util 'blessed';

use Bot::Cobalt::Common ':types';
use Bot::Cobalt::Conf::File::PerPlugin;

use Path::Tiny;
use Types::Path::Tiny -types;

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

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


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


has _per_plug_objs => (
  lazy      => 1,
  is        => 'ro',
  isa       => HashObj,
  coerce    => 1,
  builder   => '_build_per_plugin_objs',
);

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

  ##  Create PerPlugin cf objs for each plugin
  hash(
    $self->cfg_as_hash->keys->map(sub {
      ( $_ => $self->_create_perplugin_obj($_) )
    })->all
  )
}

sub _create_perplugin_obj {
  my ($self, $alias) = @_;

  my $this_cfg = $self->cfg_as_hash->get($alias)
    || confess "_create_perplugin_obj passed unknown alias $alias";

  my %new_opts;

  $new_opts{module} = $this_cfg->{Module}
    || confess "No Module defined for plugin $alias";

  if (defined $this_cfg->{Config}) {
    my $this_cf_path = path($this_cfg->{Config});
    unless ( $this_cf_path->is_absolute ) {
      $this_cf_path = path( $self->etcdir .'/'. $this_cf_path );
    }

    $new_opts{config_file} = $this_cf_path
  }

  $new_opts{autoload} = 0
    if $this_cfg->{NoAutoLoad};

  $new_opts{priority} = $this_cfg->{Priority}
    if defined $this_cfg->{Priority};

  if (defined $this_cfg->{Opts}) {
    confess "Opts: directive for plugin $alias is not a hash"
      unless ref $this_cfg->{Opts} eq 'HASH';

    $new_opts{extra_opts} = $this_cfg->{Opts};
  }

  Bot::Cobalt::Conf::File::PerPlugin->new(
    %new_opts
  );
}

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

  confess "plugin() requires a plugin alias"
    unless defined $plugin;

  $self->_per_plug_objs->{$plugin}
}

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

  [ keys %{ $self->_per_plug_objs } ]
}

sub clear_plugin {
  my ($self, $plugin) = @_;

  confess "clear_plugin requires a plugin alias"
    unless defined $plugin;

  delete $self->_per_plug_objs->{$plugin}
}

sub load_plugin {
  my ($self, $plugin) = @_;

  confess "load_plugin requires a plugin alias"
    unless defined $plugin;

  $self->_per_plug_objs->{$plugin}
    = $self->_create_perplugin_obj($plugin)
}

sub install_plugin {
  my ($self, $plugin, $plugin_obj) = @_;

  unless (defined $plugin_obj) {
    confess
      "install_plugin requires a plugin alias and Conf object"
  }

  unless (blessed $plugin_obj &&
    $plugin_obj->isa('Bot::Cobalt::Conf::File::PerPlugin') ) {

    confess
      "install_plugin requires a Bot::Cobalt::Conf::File::PerPlugin object"
  }

  $self->_per_plug_objs->{$plugin} = $plugin_obj
}


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

  1
};


1;
__END__