use strict;
use warnings;
-use Test::More tests => 67;
+use Test::More tests => 69;
use Sub::Nary;
[ sub { do { do { return if $x }, 3 }, 4 }, { 0 => 0.5, 3 => 0.5 } ],
[ sub { do { return if $x; 2, 3 }, do { return 1 if $y; 4, 5, 6 } },
{ 0 => 0.5, 1 => 0.25, 5 => 0.25 } ],
+ [ sub { my $x = do { return 2, 3; 4 } }, 2 ],
[ sub { return $x }, 1 ],
[ sub { return $x, $y }, 2 ],
[ sub { eval { return } }, 0 ],
[ sub { eval { return 1, 2 } }, 2 ],
+ [ sub { eval { return 1, 2; 3, 4, 5 } }, 2 ],
[ sub { eval { }; return $x, 2 }, 2 ],
[ sub { return eval { 1, $x }; }, 2 ],
[ sub { return 1, eval { $x, eval { $h{foo} } } }, 3 ],