Mega Code Archive

 

Categories / Perl / Subroutine

 

Return value from subroutine reference

$codereference = sub {100}; $s = &$codereference; print $s;