1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 require './test.pl'; 6 set_up_inc( qw(. ../lib) ); 7} 8plan tests => 5; 9 10is \lock $foo, \$foo, 'lock returns a scalar argument'; 11is lock @foo, \@foo, 'lock returns a ref to its array argument'; 12is lock %foo, \%foo, 'lock returns a ref to its hash argument'; 13is lock &foo, \&foo, 'lock returns a ref to its code argument'; 14 15sub eulavl : lvalue { $x } 16is lock &eulavl, \&eulavl, 'lock returns a ref to its lvalue sub arg'; 17