Select Code to Download

    
  DB<424> Dump \%h
SV = IV(0x3f1b368) at 0x3f1b378
...
    FLAGS = (OBJECT,OOK,SHAREKEYS)
    STASH = 0x31619a8   "TST"
...

\@ARGV: ["test", "-n_objs=3", "-n_attr=5", "-share_keys=0"] at d:/tmp/
+pm/bless_hash_overhead.pl line 21.
\%opt: { -n_attr => 5, -n_objs => 3, -share_keys => 0 } at d:/tmp/pm/b
+less_hash_overhead.pl line 22.
...
    "id" => 3,
  },
] at d:/tmp/pm/bless_hash_overhead.pl line 56.

C:/Perl_524/bin\perl.exe -w d:/tmp/pm/bless_hash_overhead.pl test -n_o
+bjs=3 -n_attr=5 -share_keys=1
\@ARGV: ["test", "-n_objs=3", "-n_attr=5", "-share_keys=1"] at d:/tmp/
+pm/bless_hash_overhead.pl line 21.
...
  },
] at d:/tmp/pm/bless_hash_overhead.pl line 56.