The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
use 5.010;
use strict;
use Benchmark ':all';

my $tests = $ARGV[0] // 5;

cmpthese($tests, {
    Mouse => sub {
        system qq< ANY_MOOSE=Mouse prove -Ilib -r t >;
    },
    Moose => sub {
        system qq< ANY_MOOSE=Moose prove -Ilib -r t >;
    }
});