CPAN::Groonga

RITY = 'cpan:TOBYINK';
	$XT::Util::VERSION   = '0.001';
	
	@EXPORT = qw/__CONFIG__/;
}

use JSON qw/from_json/;
use base qw/Exporter/;

sub __CONFIG__ (;$)
{
	my ($package, $file) = caller(0);
	$file 

t;
		$files{ $name } ||= do
		{
			(my $config_file = $name) =~ s{\.(PL|pl|pm|pmc|t)$}{};
			from_json do {
				open my $fh, '<', "$config_file\.config"
					or return $files{$name} = +{};
				local $

ill strip ".t" from
the end of the file name, add ".config", slurp the contents and parse them
as JSON, returning the result.

If C<< $testfile >> is omitted, then uses the caller's filename.

By movi