File Coverage

blib/lib/Project/Easy/Config/Format/perl.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	1	2	50.0
condition			n/a
subroutine	6	7	85.7
pod	0	4	0.0
total	30	38	78.9

package Project::Easy::Config::Format::perl;

use Class::Easy;

use Data::Dumper;

{
	no warnings 'redefine';
	sub Data::Dumper::qquote {
		my $s = shift;
		return "'$s'";
	}
}

sub new {
	my $class = shift;
	bless {}, $class;
}

sub parse_string {
	shift;
	my $string = shift;

	# TODO: we only need one parser configuration
	my $struct = eval $string;

	die ('error when parsing config: ', $@)
		if $@;

	return $struct;
}

sub dump_struct {
	shift;
	my $struct = shift;

	{
		local $Data::Dumper::Useqq = 1;
		my $str = Dumper ($struct);

		$str =~ s/^\$VAR\d+\s=\s//s;

		return $str;
	}
}


1;