Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re^5: Is this DBM::Deep behavior, or something with tie/bless? (ref)

by tye (Sage)
on Feb 09, 2008 at 06:49 UTC ( [id://667145]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
        if(ref($requires) ne 'ARRAY') {
    
  2. or download this
        if(  ! eval { @$requires; 1 }  ) {  # Can't be used as an array re
    +f
    
  3. or download this
    *isa= UNIVERSAL::isa;
    #...
        if(  isa( $ref, "CODE" )  ) {
    
  4. or download this
    sub isArray  { eval { @{$_[0]}; 1 } }
    sub isHash   { eval { %{$_[0]}; 1 } }
    sub isScalar { eval { ${$_[0]}; 1 } }
    sub isCode   { UNIVERSAL::isa( $_[0], "CODE" ) }
    
  5. or download this
    sub getCommonRefType
    {
    ...
        return "SCALAR" if  isScalar($ref1) && isScalar($ref2);
        return "";
    }
    

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (4)
As of 2024-03-29 05:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found