Help for this page

Select Code to Download


  1. or download this
    $is_blessed = defined($x) && ref($x) && overload::StrVal($x) =~ /=/;
  2. or download this
     
$is_blessd=defined($x) && ref($x) && (index(overload::StrVal($x),'=')>
+=0);
  3. or download this
    $is_blessd=defined($x) && ref($x) && (index(overload::StrVal($x),'=')>
+=0) 
    && overload::StrVal($x)!~/^Regexp=SCALAR/;