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