Select Code to Download

my $ref = bless sub {}, 'MyClass';
say ref($ref) eq 'CODE' ? 1 : 0;
say UNIVERSAL::isa($ref, 'CODE') ? 1 : 0;