in reply to Is reference blessed?
Yes you can find out whether an object is blessed more elegantly
(tye and merlyn told me):
if UNIVERSAL::isa($ref,'can'){
And as for your type finding, this is from perldoc perlobj:
isa(CLASS)
`isa' returns true if its object is blessed into a subclass of `CLASS' `isa' is also exportable and can be called as a sub with two arguments. This allows the ability to check what a reference points to. Example:
if(UNIVERSAL::isa($ref, 'ARRAY')) {...
HTH,
Jeroen
"We are not alone"(FZ)
Update: Yeah I screwed up remembering tye's solution. I looked it up (mea culpa):
$ref->can('isa')
Is the beast you are looking for.
Update2: D'oh. I took it for granted that you wanted a ref-check anyway, like if( ref $r ){ if ($r->can('isa')){.... Your UNIVERSAL::can($r, 'isa') sounds really neat. I'm curiously awaiting tye's/ merlyn's response(s).
In Section
Seekers of Perl Wisdom