Help for this page

Select Code to Download


  1. or download this
    UNIVERSAL::isa($array_ref,"ARRAY") 
      or die "Can't use anything but an array";
  2. or download this
    my $array_ref=bless {},"ARRAY";
  3. or download this
    eval{ ref($arrayref) and @$arrayref ? 1 : 1 } 
  or die "Must have a reference to something that behaves like an ARRA
+Y.\n".
         "Failed to coerce '$arrayref': $@";