projects
/
gitmo/Class-MOP.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Note about JPA's sponsorship and the importance of testing for back-compat
[gitmo/Class-MOP.git]
/
bench
/
foo.pl
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();