use strict; use warnings; use utf8; use Test::More; use Nephia::MetaTemplate; my $data = join('', ()); subtest default => sub { my $meta = Nephia::MetaTemplate->new; my $expect = < <?= \$arg->{title} ?>

Access to value: {title} ?>

Access to nested value: {author}->{name} ?>

EOF is $meta->process($data), $expect; }; subtest tterse => sub { my $meta = Nephia::MetaTemplate->new( tag => '[% ... %]', arrow => '.', argument => '...', replace_table => [], ); my $expect = < [% title %]

Access to value: [% title %]

Access to nested value: [% author.name %]

EOF is $meta->process($data), $expect; }; done_testing; 1; __DATA__ [= title =]

Access to value: [= title =]

Access to nested value: [= author.name =]