use strict;
use warnings;
-use Test::More tests => 39;
+use Test::More tests => 41;
use Sub::Nary;
my $sn = Sub::Nary->new();
+sub CORE::GLOBAL::reset {
+ return 1, 2, 3
+}
+
sub zero { }
sub one { 1 }
sub two { 1, 2 }
[ sub { \&zero }, 1 ],
[ sub { *zero }, 1 ],
[ sub { *zero{CODE}->() }, 'list' ],
+
+ [ sub { &CORE::GLOBAL::shift }, 'list' ],
+ [ sub { &CORE::GLOBAL::reset }, 3 ],
);
my $i = 1;