Help for this page

Select Code to Download

Select or download this

#my $func = shift if ref $_[0] eq 'CODE'; 
my $func = ref $_[0] eq 'CODE' ? shift() : undef;

Select or download this

my $func;
$func = shift if ref $_[0] eq 'CODE';