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