[gitmo/Class-MOP.git] / bench / foo.pl

#!perl
# a moose using script for profiling
# Usage: perl bench/profile.pl

package Foo;
use Moose;

has aaa => (
	is => 'rw',
	isa => 'Str',
);

has bbb => (
	is => 'rw',
	isa => 'Str',
);

has ccc => (
	is => 'rw',
	isa => 'Str',
);

has ddd => (
	is => 'rw',
	isa => 'Str',
);

has eee => (
	is => 'rw',
	isa => 'Str',
);

__PACKAGE__->meta->make_immutable();


package Bar;
use Moose;

extends 'Foo';

has xaaa => (
	is => 'rw',
	isa => 'Str',
);

has xbbb => (
	is => 'rw',
	isa => 'Str',
);

has xccc => (
	is => 'rw',
	isa => 'Str',
);

has xddd => (
	is => 'rw',
	isa => 'Str',
);

has xeee => (
	is => 'rw',
	isa => 'Str',
);

__PACKAGE__->meta->make_immutable();
Commit	Line	Data
26b2e5ab	1	#!perl
	2	# a moose using script for profiling
	3	# Usage: perl bench/profile.pl
	4
	5	package Foo;
	6	use Moose;
	7
	8	has aaa => (
	9	is => 'rw',
	10	isa => 'Str',
	11	);
	12
	13	has bbb => (
	14	is => 'rw',
	15	isa => 'Str',
	16	);
	17
	18	has ccc => (
	19	is => 'rw',
	20	isa => 'Str',
	21	);
	22
	23	has ddd => (
	24	is => 'rw',
	25	isa => 'Str',
	26	);
	27
	28	has eee => (
	29	is => 'rw',
	30	isa => 'Str',
	31	);
	32
	33	__PACKAGE__->meta->make_immutable();
	34
	35
	36	package Bar;
	37	use Moose;
	38
	39	extends 'Foo';
	40
	41	has xaaa => (
	42	is => 'rw',
	43	isa => 'Str',
	44	);
	45
	46	has xbbb => (
	47	is => 'rw',
	48	isa => 'Str',
	49	);
	50
	51	has xccc => (
	52	is => 'rw',
	53	isa => 'Str',
	54	);
	55
	56	has xddd => (
	57	is => 'rw',
	58	isa => 'Str',
	59	);
	60
	61	has xeee => (
	62	is => 'rw',
	63	isa => 'Str',
	64	);
65
66	__PACKAGE__->meta->make_immutable();