in reply to is_object_blessed($foo)

use Scalar::Util;
my $is_blessed =  blessed $obj;

[download]
Boris

In Section Seekers of Perl Wisdom