Select Code to Download

    foreach my $key ( @keys ){
      my $meth = "get_$key";
      $equals = 0 unless ( $hashref->{ $key } eq $obj->$meth() );
    }

#!/usr/bin/perl
use strict;
...
};

cmpthese timethese(-2, { rev => $rev, puk => $puk, });

Benchmark: running puk, rev for at least 2 CPU seconds...
       puk:  2 wallclock secs ( 2.08 usr +  0.00 sys =  2.08 CPU) @ 16
+447.12/s (n=34210)
...
        Rate   puk   rev
puk  16447/s    --  -92%
rev 217107/s 1220%    --