perl autoload performance

autoload-performance.pl

#! /usr/bin/env perl

use strict;
use warnings;
use v5.10;

package A;
use Moose;
use namespace::autoclean;

sub foo {
    my $self = shift;
}

package B;
use Moose;
use namespace::autoclean;
use vars qw($AUTOLOAD);

sub AUTOLOAD {
    return if ( $AUTOLOAD =~ /DESTROY/ );
    my $self = shift;
}

__PACKAGE__->meta->make_immutable;

package main;

use Time::HiRes qw(gettimeofday tv_interval);

my $executions = 100000;
my $ts         = [gettimeofday];
for ( 1 .. $executions ) {
    my $a = A->new();
    $a->foo();
}
say tv_interval($ts);

$ts = [gettimeofday];
for ( 1 .. $executions ) {
    my $b = B->new();
    $b->foo();
}
say tv_interval($ts);