trAvis - MANAGER

Edit File: simple_compile.pl

#!/usr/bin/perl use strict; use warnings; use Benchmark::Forking qw[cmpthese]; =pod This compare the overhead of Class::MOP to the overhead of Moose. The goal here is to see how much more startup cost Moose adds to Class::MOP. NOTE: This benchmark may not be all that relevant really, but it's helpful to see maybe. =cut cmpthese(5_000, { 'w/out_moose' => sub { eval 'use Class::MOP;'; }, 'w_moose' => sub { eval 'use Moose;'; }, } ); 1;