use strict;
use warnings;
-use Test::More tests => 28;
+use Test::More tests => 33;
use Sub::Nary;
[ sub { while (1) { } }, 0 ],
[ sub { while (1) { 1; } 1, 2 }, 2 ],
+
+ [ sub { eval { } }, 0 ],
+ [ sub { eval { 1, 2 } }, 2 ],
+ [ sub { eval { }; $x, 2 }, 2 ],
+ [ sub { 1, eval { $x, eval { $h{foo} } } }, 3 ],
+ [ sub { eval { 1, do { eval { @a }, 2 } } }, 'list' ],
);
my $i = 1;