SYNOPSIS
use Catmandu::Sane;
use Catmandu::Fix::Parser;
use Catmandu::Fix;
use Data::Dumper;
my $parser = Catmandu::Fix::Parser->new;
my $fixes;
try {
$fixes = $parser->parse(<<EOF);
add_field(test,123)
EOF
}
catch {
printf "[%s]\nscript:\n%s\nerror: %s\n"
, ref($_)
, $_->source
, $_->message;
};
my $fixer = Catmandu::Fix->new(fixes => $fixes);
print Dumper($fixer->fix({}));
DESCRIPTION
Programmers are discouraged to use the Catmandu::Parser directly in code but use the Catmandu package that provides the same functionality:
use Catmandu; my $fixer = Catmandu->fixer(<<EOF); add_field(test,123) EOF print Dumper($fixer->fix({}));