use Test::Base tests => 6;
my @lines1 = [blocks]->[0]->text1;
ok @lines1 == 3;
is_deeply
\@lines1,
[
"One\n",
"Two\n",
"Three \n",
];
my @lines2 = [blocks]->[0]->text2;
ok @lines2 == 3;
is_deeply
\@lines2,
[
"Three",
"Two",
"One",
];
is ref([blocks]->[0]->text3), 'ARRAY';
is scalar(@{[blocks]->[0]->text3}), 0;
__END__
=== One
--- text1 lines
One
Two
Three
--- text2 lines chomp
Three
Two
One
--- text3 lines array