is_object_blessed($foo)

moot has asked for the wisdom of the Perl Monks concerning the following question:

Am I missing something, or is there really no easy way to tell if $foo is blessed other than the unwieldy

    $is_blessed = ref $obj && UNIVERSAL::isa($obj, 'UNIVERSAL');
[download]

and without falling afoul of trying to call $obj->isa where $obj might be unblessed?

Comment on is_object_blessed($foo) Download Code

Replies are listed 'Best First'.
Re: is_object_blessed($foo) by Limbic~Region (Chancellor) on Jan 20, 2005 at 00:43 UTC
moot, See Scalar::Util's 'blessed'; Cheers - L~R	[reply]
Re^2: is_object_blessed($foo) by moot (Chaplain) on Jan 20, 2005 at 00:52 UTC
Oy. Exactly what I was looking for. Thanks to all respondents.	[reply]
Re: is_object_blessed($foo) by revdiablo (Prior) on Jan 20, 2005 at 00:44 UTC
Perhaps Scalar::Util's `blessed` routine would be of use. Update: perhaps Limbic~Region types faster than I do.	[reply] [d/l]
Re: is_object_blessed($foo) by borisz (Canon) on Jan 20, 2005 at 00:44 UTC
`use Scalar::Util; my $is_blessed = blessed $obj;` [download] Boris	[reply] [d/l]