Select Code to Download

sub name1 { 
...
        'name2' => \&name2,
     }
)

{
  package CMP;
...
}

cmpthese (-5, pckg_subs("CMP") )

use strict;
use warnings;
...
  }
  return $codehashref; 
}

/usr/bin/perl -w /tmp/diff.pl 
hash_grep:    *CMP::hash_grep
...
hash_values_diff 148869/s        568%               --          -31%  
+      -40%
hash_key_diff    215078/s        866%              44%            --  
+      -13%
hash_grep        247455/s       1011%              66%           15%  
+        --