$ops{$_} = 1 for qw/padsv/;
$ops{$_} = 'list' for qw/padav/;
$ops{$_} = 'list' for qw/padhv rv2hv/;
-$ops{$_} = 'list' for qw/padany flip match entereval/;
+$ops{$_} = 'list' for qw/padany flip match entereval readline/;
sub enter {
my ($self, $cv) = @_;
use strict;
use warnings;
-use Test::More tests => 48;
+use Test::More tests => 49;
use Sub::Nary;
[ sub { return eval { do { eval { @a } } } }, 'list' ],
[ sub { eval 'return 1, 2' }, 'list' ],
+
+ [ sub { return <$x> }, 'list' ],
);
my $i = 1;
use strict;
use warnings;
-use Test::More tests => 34;
+use Test::More tests => 35;
use Sub::Nary;
[ sub { eval { 1, do { eval { @a }, 2 } } }, 'list' ],
[ sub { eval '1, 2' }, 'list' ],
+
+ [ sub { <$x> }, 'list' ],
);
my $i = 1;