Beefy Boxes and Bandwidth Generously Provided by pair Networks DiBona
Do you know where your variables are?
 
PerlMonks  

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

by tye (Cardinal)
on Feb 09, 2008 at 06:49 UTC ( #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
Node Status?
node history
Node Type: note [id://667145]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (17)
As of 2014-04-17 20:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (454 votes), past polls