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