my $tests = [
{
- name => 'top level - scalar data',
+ name => 'scalar data',
data => 'bar',
template => <<TEMPLATE,
junk
expected => 'bar',
},
{
- name => 'top level - array data',
+ name => 'array data',
data => [
"foo\n",
"bar\n",
EXPECTED
},
{
- name => 'top level - blessed array data',
+ name => 'blessed array data',
data => bless( [
"foo\n",
"bar\n",
EXPECTED
},
{
- name => 'top level - code data',
+ name => 'code data',
+ compile_skip => 1,
data => sub { \uc ${$_[0]} },
template => <<TEMPLATE,
junk