Help for this page

Select Code to Download


  1. or download this
    package foo ;

...
## OUTPUT:
AS STRING: foo=HASH(0x1a7f04c)
AS REF: foo
  2. or download this
      if ( UNIVERSAL::isa($bless , 'HASH') ) {
    print "mohhh\n" ;
  }