Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

(tye)Re: has it been blessed?

by tye (Sage)
on Mar 06, 2002 at 16:30 UTC ( [id://149730]=note: print w/replies, xml ) Need Help??


in reply to Re: has it been blessed?
in thread has it been blessed?

For the first case, I'd add an additional check:

if( ref($obj) && UNIVERSAL::isa($obj,'Class') ) { $obj->invoke_method(); }
since UNIVERSAL::isa("main",'main') returns true even though "main" is not an object; UNIVERSAL::isa() works on class names as well.

For your second test, I'd go a quite different route:     if(  ref($obj)  &&  UNIVERSAL::isa($obj,'UNIVERSAL')  ) { or, just to be shorter:

if( ref($obj) && UNIVERSAL::can($obj,'can') ) { # or if( ref($obj) && UNIVERSAL::can($obj,'isa') ) {
You can also do:     use UNIVERSAL qw( isa can ); to make the above tests much shorter to write (allowing you to drop "UNIVERSAL::" in each).

This all partially illustrates why it was a mistake for ref() to deal with both reference nature and blessedness nature. ref() should only return things like 'ARRAY' while a separate function, blessed() should tell you whether the item is a blessed reference or not (and probably return the package into which it was blessed, though using such information directly is usually a bad idea).

        - tye (but my friends call me "Tye")

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://149730]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others examining the Monastery: (7)
As of 2024-03-28 12:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found