8 lines
93 B
Perl
8 lines
93 B
Perl
|
sub first {shift->()}
|
||
|
|
|
||
|
|
sub second {'second'}
|
||
|
|
|
||
|
|
print first \&second;
|
||
|
|
|
||
|
|
print first sub{'sub'};
|