File Coverage

blib/lib/App/Slackeria/PluginLoader.pm

Criterion	Covered	Total	%
statement	9	27	33.3
branch	0	4	0.0
condition			n/a
subroutine	3	7	42.8
pod	4	4	100.0
total	16	42	38.1

package App::Slackeria::PluginLoader;

use strict;
use warnings;
use 5.010;

our $VERSION = '0.12';

sub new {
	my ( $obj, %conf ) = @_;

	my $ref = {};

	return bless( $ref, $obj );
}

sub load {
	my ( $self, $plugin, %conf ) = @_;
	my $obj;
	eval sprintf(
		'use App::Slackeria::Plugin::%s;'
		  . '$obj = App::Slackeria::Plugin::%s->new(%%conf);',
		( ucfirst($plugin) ) x 2,
	);
	if ($@) {
		print STDERR "Cannot load plugin ${plugin}:\n$@\n";
	}
	else {
		$self->{plugin}->{$plugin} = $obj;
	}

	return;
}

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

	my @list = sort keys %{ $self->{plugin} };

	return @list;
}

sub run {
	my ( $self, $name, $conf ) = @_;

	if ( $self->{plugin}->{$name} ) {
		return $self->{plugin}->{$name}->run($conf);
	}

	return;
}

1;

__END__