data validator role benchmark

benchmark.pl

use 5.10.1;
use strict;
use warnings;
use Benchmark qw(:all);

package Applyed {
    use Mouse;
    extends "Data::Validator";
    with "Data::Validator::Role::Croak";
};

cmpthese(-1, {
    apply_now => sub {
        Data::Validator->new(test => "Str")->with("Croak");
    },
    applied => sub {
        Applyed->new(test => "Str");
    },
});
__END__
              Rate apply_now   applied
apply_now  13953/s        --      -86%
applied   101494/s      627%        --