type-bench.pl

use strict;
use warnings;
use Benchmark qw(cmpthese);

#use Mouse;
use Types::Standard qw(Int);

our $type  = Int;
our $check = $type->compiled_check;

cmpthese(-1, {
	'$type'   => q{ $::type->check($_) for 0..100 },
	'$check'  => q{ $::check->($_) for 0..100 },
});

__END__

With Mouse loaded:

          Rate  $type $check
$type   3381/s     --   -81%
$check 17935/s   430%     --

Without Mouse loaded:

         Rate  $type $check
$type  1487/s     --   -61%
$check 3765/s   153%     --