Help for this page

Select Code to Download


  1. or download this
    sub new {
    ...
        my %self = %{$_[0]} if ref $_[0];
    ...
}
  2. or download this
    use strict;
use warnings;
...
        print "testref2:" . \%x . "\n";
        return(\%x);
}
  3. or download this
    testref1:HASH(0x9f952c4)
testref1:HASH(0x9f952c4)
...
testref2:HASH(0x9f7b7a4)