use Scalar::Util qw(blessed);
my $is_code = blessed($code) ? $code->can('&{}') : ref($code) eq 'CODE';