File Coverage

blib/lib/Terse/Plugin/Config.pm

Criterion	Covered	Total	%
statement	6	23	26.0
branch	0	4	0.0
condition			n/a
subroutine	2	6	33.3
pod	0	2	0.0
total	8	35	22.8

package Terse::Plugin::Config;

use base 'Terse::Plugin';

use Data::LNPath qw/lnpath/;

sub build_plugin {
	my ($self) = @_;
	if (!$self->config_file) {
		my $file = $0;
		($self->config_file = $0) =~ s/(\.psgi)?$/.json/;
	}
	$self->data = $self->_read_file($self->config_file);
	return $self;
}

sub find {
	my ($self, $path) = @_;
	return lnpath($self->config, $path);
}

sub _read_file {
	my ($self, $file) = @_;
	open my $fh, '<', $file or die "Cannot open config file: $file";
	my $content = do { local $/; <$fh> };
	close $fh;
	$self->_parse_config($content);
}

sub _parse_config {
	my ($self, $content) = @_;
	$self->graft('data', $content);
}

1;

__END__