File Coverage

blib/lib/App/Slackeria/Config.pm

Criterion	Covered	Total	%
statement	18	45	40.0
branch	0	8	0.0
condition	0	5	0.0
subroutine	6	11	54.5
pod	5	5	100.0
total	29	74	39.1

package App::Slackeria::Config;

use strict;
use warnings;
use 5.010;

use Config::Tiny;
use Carp;
use File::BaseDir qw(config_files);

our $VERSION = '0.12';

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

	my $ref = {};

	return bless( $ref, $obj );
}

sub get {
	my ( $self, $name, $section ) = @_;
	$self->load($name);

	if ( $name ne 'config' ) {
		$self->{file}->{$name}->{$section}->{name} //= $name;
	}

	return $self->{file}->{$name}->{$section} // {};
}

sub load {
	my ( $self, $name ) = @_;
	my $file = config_files("slackeria/${name}");

	if ( defined $self->{file}->{$name} ) {
		return;
	}

	if ($file) {
		$self->{file}->{$name} = Config::Tiny->read($file);
	}
	else {
		$self->{file}->{$name} = {};
	}

	if ( $name eq 'config' ) {
		$self->{projects}
		  = [ split( / /, $self->{file}->{$name}->{slackeria}->{projects} ) ];
		delete $self->{file}->{$name}->{slackeria};
	}

	return;
}

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

	$self->load('config');

	return @{ $self->{projects} };
}

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

	$self->load('config');

	return keys %{ $self->{file}->{config} };
}

1;

__END__