![]() |
|
Don't ask to ask, just ask | |
PerlMonks |
blessedby demerphq (Chancellor) |
on Dec 05, 2002 at 15:39 UTC ( #217784=snippet: print w/replies, xml ) | Need Help?? |
use overload; # required for either # qr// constructs are NOT considered blessed objects. sub blessed($) { (ref($_[0]) && (index(overload::StrVal($_[0]),'=')>=0) && overload::StrVal($_[0])!~/^Regexp=SCALAR/) ? ref($_[0]) : "" } # qr// constructs ARE considered blessed objects sub blessed($) { (ref($_[0]) && (index(overload::StrVal($_[0]),'=')>=0)) ? ref($_[0]) : "" }
|
|