[gitmo/Moose.git] / benchmarks / simple_class.pl

#!/usr/bin/perl

use strict;
use warnings;

use Benchmark::Forking qw[cmpthese];

=pod

This compares the burden of a basic Moose 
class to a basic Class::MOP class. 

It is worth noting that the basic Moose 
class will also create a type constraint 
as well as export many subs, so this comparison 
is really not fair :)

=cut

cmpthese(5_000, 
    {    
        'w/out_moose' => sub {
            eval 'package Bar; use metaclass;';
        },
        'w_moose' => sub {
            eval 'package Baz; use Moose;';
        },       
    }
);

1;
Commit	Line	Data
7623f774	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Benchmark::Forking qw[cmpthese];
	7
	8	=pod
	9
	10	This compares the burden of a basic Moose
	11	class to a basic Class::MOP class.
	12
	13	It is worth noting that the basic Moose
	14	class will also create a type constraint
	15	as well as export many subs, so this comparison
	16	is really not fair :)
	17
	18	=cut
	19
	20	cmpthese(5_000,
	21	{
	22	'w/out_moose' => sub {
	23	eval 'package Bar; use metaclass;';
	24	},
	25	'w_moose' => sub {
	26	eval 'package Baz; use Moose;';
	27	},
	28	}
	29	);
	30
	31	1;