Mega Code Archive

 

Categories / Perl / Data Type

 

Using ref function on a subroutine reference

sub printem {     print shift; } $coderef = \&printem; print (ref $coderef);