use strict;
use warnings;
-use Test::More tests => 2 * 4 * 5;
+use Test::More tests => 2 * 4 * 7;
use B::RecDeparse;
my $brd = B::RecDeparse->new(level => -1);
sub foo { 123 }
+sub baz;
my $pkg;
+my $coderef;
my @tests = (
[ e1 => 'foo()', '123' ],
[ x3 => 'bar(@_)', 'bar' ],
[ x4 => 'bar(shift)', 'bar' ],
+ [ d1 => 'baz()', 'baz' ],
+ [ d2 => 'baz(1)', 'baz' ],
+ [ d3 => 'baz(@_)', 'baz' ],
+ [ d4 => 'baz(shift)', 'baz' ],
+
+ [ c1 => '$coderef->()', 'coderef' ],
+ [ c2 => '$coderef->(1)', 'coderef' ],
+ [ c3 => '$coderef->(@_)', 'coderef' ],
+ [ c4 => '$coderef->(shift)', 'coderef' ],
+
[ m1 => '"pkg"->qux()', 'qux' ],
[ m2 => '"pkg"->qux(1)', 'qux' ],
[ m3 => '"pkg"->qux(@_)', 'qux' ],