Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {
- package WithMXMS_immutable;
- use Moose;
- use MooseX::Method::Signatures;
- method gndn {}
- __PACKAGE__->meta->make_immutable;
- }
- use v5.14;
- use Time::HiRes qw(time);
- my $Runs = 15_000;
- {
- my $obj = WithMXMS_immutable->new;
- my $start = time;
- $obj->gndn for 1..$Runs;
- my $end = time;
- say +($end - $start)." seconds for MooseX::Method::Signatures method call (immutable)";
- }
Add Comment
Please, Sign In to add comment