Help for this page

Select Code to Download


  1. or download this
        if(ref($requires) ne 'ARRAY') {
  2. or download this
        if(  ! eval { @$requires; 1 }  ) {  # Can't be used as an array re
+f
  3. or download this
    *isa= UNIVERSAL::isa;
#...
    if(  isa( $ref, "CODE" )  ) {
  4. or download this
    sub isArray  { eval { @{$_[0]}; 1 } }
sub isHash   { eval { %{$_[0]}; 1 } }
sub isScalar { eval { ${$_[0]}; 1 } }
sub isCode   { UNIVERSAL::isa( $_[0], "CODE" ) }
  5. or download this
    sub getCommonRefType
{
...
    return "SCALAR" if  isScalar($ref1) && isScalar($ref2);
    return "";
}