Require Dist::Zilla 4.200016+

[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;