Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...

print Dumper(\%table), "\n";
  2. or download this
    use strict;
use warnings;
...

print Dumper(\%table), "\n";
  3. or download this
    $VAR1 = {
          'a_a' => {
...
                   }
        };
  4. or download this
    use strict;
use warnings;
...

print Dumper($table), "\n";
  5. or download this
    $VAR1 = bless( [
                 {
...
                 }
               ], 'MCE::Shared::Ordhash' );
  6. or download this
      use strict;
  use warnings;
...

  printf "total time        : %0.02f\n", $total += time - $start;
  7. or download this
    Hash::Ordered
duration (set    ): 0.20
...
duration (merge  ): 0.15
total time        : 0.65