File Coverage

blib/lib/portable/loader/TOML.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	1	2	50.0
condition	2	6	33.3
subroutine	9	9	100.0
pod	0	2	0.0
total	44	51	86.2

use 5.008008;
use strict;
use warnings;

package portable::loader::TOML;

our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.002';

use portable::lib;

our $decoder;

sub init {
	my $me = shift;
	my ($loader) = @_;
	$loader->register_extension('portable.toml');
	$loader->register_extension('portable');
	return;
}

sub parse {
	my $me = shift;
	my ($filename) = @_;
	require JSON::Eval;
	$decoder ||= JSON::Eval->new($me->_get_parser);
	my $tomltext = do {
		open my $fh, '<', $filename
			or die "Could not open $filename: $!";
		local $/;
		<$fh>;
	};
	$me->_munge_toml(\$tomltext);
	my $decoded = $decoder->decode($tomltext);
	return ($filename => $decoded);
}

sub _munge_toml {
	my $ref = $_[1];
	$$ref =~ s{
				\{\{\{
						(.*?)
				\}\}\}
		}{ \{\"\$eval\"=''' sub \{ $1 \} ''' \} }xsgo;
	return;
}

# create method alias
my $p;
sub _get_parser {
	$p ||= eval q{
				package portable::loader::TOML::_Parser;
				require TOML::Parser;
				our @ISA = 'TOML::Parser';
				sub decode { shift->parse(@_) };
				__PACKAGE__->new;
		};
}

1;