Select Code to Download

#! /usr/bin/env perl

...
    slice      => sub { hash_slice( $t->{source},            $t->{filt
+er} ) },
  }
);

ok 1
ok 2
...
recursive  271739/s       42%       37%       13%        10%        --
+      -39%
delete     448430/s      134%      126%       87%        81%       65%
+        --
# Looks like you failed 1 test of 7.