Select Code to Download

    if(ref($requires) ne 'ARRAY') {

    if(  ! eval { @$requires; 1 }  ) {  # Can't be used as an array re
+f

*isa= UNIVERSAL::isa;
#...
    if(  isa( $ref, "CODE" )  ) {

sub isArray  { eval { @{$_[0]}; 1 } }
sub isHash   { eval { %{$_[0]}; 1 } }
sub isScalar { eval { ${$_[0]}; 1 } }
sub isCode   { UNIVERSAL::isa( $_[0], "CODE" ) }

sub getCommonRefType
{
...
    return "SCALAR" if  isScalar($ref1) && isScalar($ref2);
    return "";
}