Select Code to Download

#! /usr/bin/perl

...
    my $class = $_;
    $class => sub { $class->do_something }
} @classes});

BlessedHash x 10000     = 2265688 bytes
ClassStd x 10000        = 2222948 bytes
...
RefaddrCall    1778/s         78%      62%            57%          -- 
+         -24%        -27%
RefaddrCached  2349/s        135%     114%           108%         32% 
+           --         -4%
BlessedHash    2443/s        144%     122%           116%         37% 
+           4%          --