Help for this page

Select Code to Download


  1. or download this
    if (ref $r ne 'HASH' && ref $r ne 'ARRAY' && ref $r ne 'CODE' && ref $
+r ne 'SCALAR' && ref $r ne 'GLOB')
  2. or download this
    my ($class,$type,$addr) = (overload::StrVal($r) =~ /^(?:(.*)\=)?([^=]*
+)\(([^\(]*)\)$/);