Filename | /home/ss5/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/x86_64-linux/Class/MOP/Mixin/HasAttributes.pm |
Statements | Executed 2524 statements in 6.48ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
135 | 125 | 23 | 5.00ms | 48.1ms | add_attribute | Class::MOP::Mixin::HasAttributes::
190 | 2 | 2 | 442µs | 496µs | has_attribute | Class::MOP::Mixin::HasAttributes::
131 | 2 | 1 | 242µs | 269µs | get_attribute | Class::MOP::Mixin::HasAttributes::
33 | 1 | 1 | 88µs | 98µs | get_attribute_list | Class::MOP::Mixin::HasAttributes::
1 | 1 | 1 | 9µs | 11µs | BEGIN@4 | Class::MOP::Mixin::HasAttributes::
1 | 1 | 1 | 5µs | 8µs | BEGIN@5 | Class::MOP::Mixin::HasAttributes::
1 | 1 | 1 | 4µs | 22µs | BEGIN@7 | Class::MOP::Mixin::HasAttributes::
1 | 1 | 1 | 4µs | 16µs | BEGIN@9 | Class::MOP::Mixin::HasAttributes::
0 | 0 | 0 | 0s | 0s | _restore_metaattributes_from | Class::MOP::Mixin::HasAttributes::
0 | 0 | 0 | 0s | 0s | remove_attribute | Class::MOP::Mixin::HasAttributes::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Class::MOP::Mixin::HasAttributes; | ||||
2 | 1 | 300ns | our $VERSION = '2.1605'; | ||
3 | |||||
4 | 2 | 14µs | 2 | 12µs | # spent 11µs (9+2) within Class::MOP::Mixin::HasAttributes::BEGIN@4 which was called:
# once (9µs+2µs) by Class::MOP::BEGIN@15 at line 4 # spent 11µs making 1 call to Class::MOP::Mixin::HasAttributes::BEGIN@4
# spent 2µs making 1 call to strict::import |
5 | 2 | 14µs | 2 | 12µs | # spent 8µs (5+3) within Class::MOP::Mixin::HasAttributes::BEGIN@5 which was called:
# once (5µs+3µs) by Class::MOP::BEGIN@15 at line 5 # spent 8µs making 1 call to Class::MOP::Mixin::HasAttributes::BEGIN@5
# spent 3µs making 1 call to warnings::import |
6 | |||||
7 | 2 | 14µs | 2 | 40µs | # spent 22µs (4+18) within Class::MOP::Mixin::HasAttributes::BEGIN@7 which was called:
# once (4µs+18µs) by Class::MOP::BEGIN@15 at line 7 # spent 22µs making 1 call to Class::MOP::Mixin::HasAttributes::BEGIN@7
# spent 18µs making 1 call to Exporter::import |
8 | |||||
9 | 2 | 225µs | 2 | 29µs | # spent 16µs (4+13) within Class::MOP::Mixin::HasAttributes::BEGIN@9 which was called:
# once (4µs+13µs) by Class::MOP::BEGIN@15 at line 9 # spent 16µs making 1 call to Class::MOP::Mixin::HasAttributes::BEGIN@9
# spent 13µs making 1 call to parent::import |
10 | |||||
11 | # spent 48.1ms (5.00+43.1) within Class::MOP::Mixin::HasAttributes::add_attribute which was called 135 times, avg 356µs/call:
# 5 times (71µs+886µs) by Moose::Exporter::BEGIN@8 at line 646 of Class/MOP.pm, avg 191µs/call
# 4 times (86µs+8.71ms) by Moose::Meta::Class::add_attribute at line 573 of Moose/Meta/Class.pm, avg 2.20ms/call
# 3 times (50µs+500µs) by Moose::BEGIN@32 at line 306 of Moose/Meta/Role.pm, avg 184µs/call
# 2 times (35µs+350µs) by Moose::BEGIN@32 at line 85 of Moose/Meta/Role.pm, avg 193µs/call
# once (19µs+4.83ms) by Moose::Util::TypeConstraints::BEGIN@34 at line 14 of Moose/Meta/TypeConstraint/Registry.pm
# once (24µs+4.35ms) by Moose::Exporter::BEGIN@8 at line 399 of Class/MOP.pm
# once (2.68ms+207µs) by Moose::Exporter::BEGIN@8 at line 618 of Class/MOP.pm
# once (17µs+1.24ms) by Moose::BEGIN@26 at line 19 of Moose/Meta/TypeCoercion.pm
# once (41µs+394µs) by Moose::Exporter::BEGIN@8 at line 140 of Class/MOP.pm
# once (28µs+407µs) by Moose::Meta::TypeConstraint::Parameterized::BEGIN@10 at line 16 of Moose/Meta/TypeConstraint/Parameterizable.pm
# once (17µs+387µs) by Moose::Util::TypeConstraints::BEGIN@26 at line 21 of Moose/Meta/TypeConstraint/Parameterized.pm
# once (34µs+344µs) by Moose::Exporter::BEGIN@8 at line 407 of Class/MOP.pm
# once (36µs+336µs) by Moose::Util::TypeConstraints::BEGIN@25 at line 17 of Moose/Meta/TypeConstraint/Union.pm
# once (16µs+344µs) by Moose::Exporter::BEGIN@8 at line 212 of Class/MOP.pm
# once (16µs+332µs) by parent::import at line 87 of Moose/Meta/Mixin/AttributeCore.pm
# once (19µs+293µs) by Moose::Util::TypeConstraints::BEGIN@26 at line 15 of Moose/Meta/TypeConstraint/Parameterized.pm
# once (19µs+292µs) by Moose::Meta::TypeCoercion::BEGIN@8 at line 25 of Moose/Meta/Attribute.pm
# once (18µs+291µs) by Moose::BEGIN@25 at line 100 of Moose/Meta/TypeConstraint.pm
# once (19µs+290µs) by parent::import at line 96 of Moose/Meta/Mixin/AttributeCore.pm
# once (26µs+281µs) by parent::import at line 9 of Moose/Meta/Mixin/AttributeCore.pm
# once (28µs+276µs) by Moose::BEGIN@24 at line 29 of Moose/Meta/Class.pm
# once (27µs+273µs) by Moose::Util::TypeConstraints::BEGIN@28 at line 14 of Moose/Meta/TypeConstraint/Class.pm
# once (30µs+267µs) by Moose::Meta::Role::BEGIN@11 at line 14 of Moose/Meta/Role/Attribute.pm
# once (18µs+277µs) by Moose::Meta::TypeConstraint::Parameterized::BEGIN@10 at line 22 of Moose/Meta/TypeConstraint/Parameterizable.pm
# once (26µs+268µs) by Moose::BEGIN@25 at line 26 of Moose/Meta/TypeConstraint.pm
# once (13µs+279µs) by Moose::Exporter::BEGIN@8 at line 539 of Class/MOP.pm
# once (28µs+262µs) by Moose::Exporter::BEGIN@8 at line 470 of Class/MOP.pm
# once (15µs+268µs) by parent::import at line 79 of Moose/Meta/Mixin/AttributeCore.pm
# once (16µs+265µs) by Moose::BEGIN@25 at line 37 of Moose/Meta/TypeConstraint.pm
# once (24µs+253µs) by Moose::BEGIN@33 at line 18 of Moose/Meta/Role/Composite.pm
# once (16µs+260µs) by Moose::Exporter::BEGIN@8 at line 391 of Class/MOP.pm
# once (21µs+247µs) by Moose::BEGIN@34 at line 17 of Moose/Meta/Role/Application.pm
# once (21µs+247µs) by Moose::BEGIN@38 at line 17 of Moose/Meta/Role/Application/ToInstance.pm
# once (16µs+248µs) by Moose::BEGIN@25 at line 40 of Moose/Meta/TypeConstraint.pm
# once (15µs+249µs) by parent::import at line 71 of Moose/Meta/Mixin/AttributeCore.pm
# once (16µs+248µs) by Moose::BEGIN@25 at line 79 of Moose/Meta/TypeConstraint.pm
# once (15µs+242µs) by Moose::BEGIN@25 at line 73 of Moose/Meta/TypeConstraint.pm
# once (16µs+227µs) by Moose::Meta::Role::BEGIN@11 at line 21 of Moose/Meta/Role/Attribute.pm
# once (21µs+212µs) by Moose::Util::TypeConstraints::BEGIN@29 at line 14 of Moose/Meta/TypeConstraint/Role.pm
# once (19µs+212µs) by Moose::BEGIN@25 at line 22 of Moose/Meta/TypeConstraint.pm
# once (20µs+199µs) by Moose::Util::TypeConstraints::BEGIN@30 at line 15 of Moose/Meta/TypeConstraint/Enum.pm
# once (15µs+202µs) by Moose::Exporter::BEGIN@8 at line 308 of Class/MOP.pm
# once (16µs+196µs) by Moose::BEGIN@25 at line 106 of Moose/Meta/TypeConstraint.pm
# once (18µs+192µs) by Moose::Util::TypeConstraints::BEGIN@34 at line 24 of Moose/Meta/TypeConstraint/Registry.pm
# once (15µs+193µs) by Moose::Exporter::BEGIN@8 at line 446 of Class/MOP.pm
# once (15µs+191µs) by Moose::Exporter::BEGIN@8 at line 422 of Class/MOP.pm
# once (18µs+186µs) by Moose::BEGIN@33 at line 31 of Moose/Meta/Role/Composite.pm
# once (18µs+185µs) by Moose::BEGIN@26 at line 16 of Moose/Meta/TypeCoercion.pm
# once (18µs+180µs) by Moose::Util::TypeConstraints::BEGIN@31 at line 17 of Moose/Meta/TypeConstraint/DuckType.pm
# once (16µs+182µs) by Moose::Exporter::BEGIN@8 at line 430 of Class/MOP.pm
# once (18µs+180µs) by Moose::Meta::Role::BEGIN@13 at line 18 of Moose/Meta/Role/Method/Required.pm
# once (16µs+181µs) by Moose::Exporter::BEGIN@8 at line 438 of Class/MOP.pm
# once (16µs+181µs) by Moose::Exporter::BEGIN@8 at line 454 of Class/MOP.pm
# once (18µs+179µs) by Moose::BEGIN@35 at line 20 of Moose/Meta/Role/Application/RoleSummation.pm
# once (17µs+177µs) by Moose::BEGIN@32 at line 155 of Moose/Meta/Role.pm
# once (18µs+174µs) by Moose::BEGIN@36 at line 14 of Moose/Meta/Role/Application/ToClass.pm
# once (16µs+176µs) by Moose::BEGIN@25 at line 46 of Moose/Meta/TypeConstraint.pm
# once (17µs+173µs) by Moose::Meta::Role::BEGIN@14 at line 11 of Moose/Meta/Role/Method/Conflicting.pm
# once (17µs+172µs) by Moose::BEGIN@32 at line 162 of Moose/Meta/Role.pm
# once (16µs+172µs) by Moose::BEGIN@26 at line 28 of Moose/Meta/TypeCoercion.pm
# once (16µs+172µs) by Moose::BEGIN@32 at line 399 of Moose/Meta/Role.pm
# once (16µs+172µs) by Moose::BEGIN@33 at line 40 of Moose/Meta/Role/Composite.pm
# once (17µs+166µs) by Moose::BEGIN@24 at line 35 of Moose/Meta/Class.pm
# once (17µs+164µs) by Moose::Meta::Role::BEGIN@11 at line 28 of Moose/Meta/Role/Attribute.pm
# once (16µs+165µs) by Moose::BEGIN@33 at line 37 of Moose/Meta/Role/Composite.pm
# once (14µs+165µs) by Moose::Exporter::BEGIN@8 at line 564 of Class/MOP.pm
# once (16µs+161µs) by Moose::Util::TypeConstraints::BEGIN@30 at line 20 of Moose/Meta/TypeConstraint/Enum.pm
# once (34µs+143µs) by Moose::Exporter::BEGIN@8 at line 144 of Class/MOP.pm
# once (17µs+159µs) by Moose::BEGIN@32 at line 352 of Moose/Meta/Role.pm
# once (15µs+160µs) by Moose::BEGIN@32 at line 141 of Moose/Meta/Role.pm
# once (16µs+159µs) by Moose::BEGIN@32 at line 127 of Moose/Meta/Role.pm
# once (16µs+158µs) by parent::import at line 16 of Moose/Meta/Mixin/AttributeCore.pm
# once (16µs+157µs) by Moose::BEGIN@33 at line 45 of Moose/Meta/Role/Composite.pm
# once (16µs+156µs) by Moose::BEGIN@34 at line 24 of Moose/Meta/Role/Application.pm
# once (16µs+156µs) by Moose::Exporter::BEGIN@8 at line 185 of Class/MOP.pm
# once (16µs+155µs) by Moose::BEGIN@32 at line 121 of Moose/Meta/Role.pm
# once (16µs+155µs) by Moose::Meta::Role::BEGIN@11 at line 35 of Moose/Meta/Role/Attribute.pm
# once (13µs+157µs) by Moose::BEGIN@24 at line 38 of Moose/Meta/Class.pm
# once (14µs+156µs) by Moose::Exporter::BEGIN@8 at line 593 of Class/MOP.pm
# once (16µs+154µs) by Moose::BEGIN@32 at line 134 of Moose/Meta/Role.pm
# once (14µs+156µs) by Moose::Exporter::BEGIN@8 at line 518 of Class/MOP.pm
# once (15µs+154µs) by Moose::BEGIN@24 at line 52 of Moose/Meta/Class.pm
# once (16µs+153µs) by Moose::BEGIN@36 at line 19 of Moose/Meta/Role/Application/ToClass.pm
# once (15µs+153µs) by Moose::Exporter::BEGIN@8 at line 219 of Class/MOP.pm
# once (15µs+153µs) by parent::import at line 23 of Moose/Meta/Mixin/AttributeCore.pm
# once (14µs+153µs) by Moose::Exporter::BEGIN@8 at line 583 of Class/MOP.pm
# once (16µs+151µs) by Moose::BEGIN@25 at line 90 of Moose/Meta/TypeConstraint.pm
# once (17µs+149µs) by parent::import at line 57 of Moose/Meta/Mixin/AttributeCore.pm
# once (16µs+150µs) by Moose::BEGIN@32 at line 148 of Moose/Meta/Role.pm
# once (16µs+150µs) by Moose::Meta::Role::BEGIN@11 at line 42 of Moose/Meta/Role/Attribute.pm
# once (14µs+152µs) by Moose::Exporter::BEGIN@8 at line 602 of Class/MOP.pm
# once (16µs+150µs) by parent::import at line 30 of Moose/Meta/Mixin/AttributeCore.pm
# once (16µs+149µs) by Moose::Exporter::BEGIN@8 at line 481 of Class/MOP.pm
# once (15µs+149µs) by Moose::BEGIN@24 at line 46 of Moose/Meta/Class.pm
# once (16µs+148µs) by parent::import at line 64 of Moose/Meta/Mixin/AttributeCore.pm
# once (15µs+148µs) by parent::import at line 50 of Moose/Meta/Mixin/AttributeCore.pm
# once (16µs+148µs) by parent::import at line 37 of Moose/Meta/Mixin/AttributeCore.pm
# once (15µs+147µs) by parent::import at line 43 of Moose/Meta/Mixin/AttributeCore.pm
# once (14µs+146µs) by Moose::Exporter::BEGIN@8 at line 572 of Class/MOP.pm
# once (16µs+140µs) by Moose::Exporter::BEGIN@8 at line 157 of Class/MOP.pm
# once (13µs+143µs) by Moose::Exporter::BEGIN@8 at line 525 of Class/MOP.pm
# once (13µs+143µs) by Moose::Exporter::BEGIN@8 at line 532 of Class/MOP.pm
# once (16µs+137µs) by Moose::Exporter::BEGIN@8 at line 328 of Class/MOP.pm
# once (17µs+133µs) by Moose::Exporter::BEGIN@8 at line 271 of Class/MOP.pm
# once (14µs+135µs) by Moose::Exporter::BEGIN@8 at line 511 of Class/MOP.pm
# once (13µs+136µs) by Moose::Exporter::BEGIN@8 at line 679 of Class/MOP.pm
# once (16µs+132µs) by Moose::Exporter::BEGIN@8 at line 189 of Class/MOP.pm
# once (15µs+132µs) by Moose::Exporter::BEGIN@8 at line 244 of Class/MOP.pm
# once (16µs+130µs) by Moose::Exporter::BEGIN@8 at line 291 of Class/MOP.pm
# once (13µs+133µs) by Moose::Exporter::BEGIN@8 at line 359 of Class/MOP.pm
# once (13µs+132µs) by Moose::Exporter::BEGIN@8 at line 703 of Class/MOP.pm
# once (14µs+130µs) by Moose::Exporter::BEGIN@8 at line 635 of Class/MOP.pm
# once (16µs+127µs) by Moose::Exporter::BEGIN@8 at line 415 of Class/MOP.pm
# once (14µs+128µs) by Moose::Exporter::BEGIN@8 at line 710 of Class/MOP.pm
# once (14µs+127µs) by Moose::Exporter::BEGIN@8 at line 376 of Class/MOP.pm
# once (15µs+126µs) by Moose::Exporter::BEGIN@8 at line 312 of Class/MOP.pm
# once (12µs+126µs) by Moose::Exporter::BEGIN@8 at line 661 of Class/MOP.pm
# once (16µs+121µs) by Moose::Exporter::BEGIN@8 at line 462 of Class/MOP.pm
# once (16µs+120µs) by Moose::Exporter::BEGIN@8 at line 622 of Class/MOP.pm
# once (13µs+118µs) by Moose::Exporter::BEGIN@8 at line 338 of Class/MOP.pm
# once (13µs+114µs) by Moose::Exporter::BEGIN@8 at line 500 of Class/MOP.pm
# once (13µs+114µs) by Moose::Exporter::BEGIN@8 at line 348 of Class/MOP.pm
# once (13µs+108µs) by Moose::Exporter::BEGIN@8 at line 696 of Class/MOP.pm
# once (12µs+108µs) by Moose::Exporter::BEGIN@8 at line 686 of Class/MOP.pm
# once (14µs+56µs) by Moose::Exporter::BEGIN@8 at line 555 of Class/MOP.pm | ||||
12 | 135 | 22µs | my $self = shift; | ||
13 | |||||
14 | 135 | 453µs | 283 | 1.03ms | my $attribute # spent 958µs making 74 calls to Class::MOP::Attribute::new, avg 13µs/call
# spent 44µs making 135 calls to Scalar::Util::blessed, avg 327ns/call
# spent 31µs making 74 calls to Class::MOP::Mixin::HasAttributes::attribute_metaclass, avg 415ns/call |
15 | = blessed( $_[0] ) ? $_[0] : $self->attribute_metaclass->new(@_); | ||||
16 | |||||
17 | 135 | 255µs | 135 | 74µs | ( $attribute->isa('Class::MOP::Mixin::AttributeCore') ) # spent 74µs making 135 calls to UNIVERSAL::isa, avg 550ns/call |
18 | || $self->_throw_exception( AttributeMustBeAnClassMOPMixinAttributeCoreOrSubclass => attribute => $attribute, | ||||
19 | class_name => $self->name, | ||||
20 | ); | ||||
21 | |||||
22 | 135 | 94µs | 135 | 928µs | $self->_attach_attribute($attribute); # spent 928µs making 135 calls to Class::MOP::Class::_attach_attribute, avg 7µs/call |
23 | |||||
24 | 135 | 207µs | 135 | 43µs | my $attr_name = $attribute->name; # spent 43µs making 135 calls to Class::MOP::Mixin::AttributeCore::name, avg 321ns/call |
25 | |||||
26 | 135 | 95µs | 135 | 354µs | $self->remove_attribute($attr_name) # spent 354µs making 135 calls to Class::MOP::Mixin::HasAttributes::has_attribute, avg 3µs/call |
27 | if $self->has_attribute($attr_name); | ||||
28 | |||||
29 | 135 | 193µs | 135 | 25µs | my $order = ( scalar keys %{ $self->_attribute_map } ); # spent 25µs making 135 calls to Class::MOP::Mixin::HasAttributes::_attribute_map, avg 182ns/call |
30 | 135 | 97µs | 135 | 82µs | $attribute->_set_insertion_order($order); # spent 82µs making 135 calls to Class::MOP::Mixin::AttributeCore::_set_insertion_order, avg 611ns/call |
31 | |||||
32 | 135 | 2.88ms | 135 | 17µs | $self->_attribute_map->{$attr_name} = $attribute; # spent 17µs making 135 calls to Class::MOP::Mixin::HasAttributes::_attribute_map, avg 125ns/call |
33 | |||||
34 | # This method is called to allow for installing accessors. Ideally, we'd | ||||
35 | # use method overriding, but then the subclass would be responsible for | ||||
36 | # making the attribute, which would end up with lots of code | ||||
37 | # duplication. Even more ideally, we'd use augment/inner, but this is | ||||
38 | # Class::MOP! | ||||
39 | 135 | 557µs | 270 | 40.6ms | $self->_post_add_attribute($attribute) # spent 40.5ms making 135 calls to Class::MOP::Class::_post_add_attribute, avg 300µs/call
# spent 73µs making 135 calls to UNIVERSAL::can, avg 541ns/call |
40 | if $self->can('_post_add_attribute'); | ||||
41 | |||||
42 | 135 | 311µs | return $attribute; | ||
43 | } | ||||
44 | |||||
45 | # spent 496µs (442+54) within Class::MOP::Mixin::HasAttributes::has_attribute which was called 190 times, avg 3µs/call:
# 135 times (315µs+39µs) by Class::MOP::Mixin::HasAttributes::add_attribute at line 26, avg 3µs/call
# 55 times (127µs+15µs) by Class::MOP::Class::find_attribute_by_name at line 927 of Class/MOP/Class.pm, avg 3µs/call | ||||
46 | 190 | 40µs | my ( $self, $attribute_name ) = @_; | ||
47 | |||||
48 | 190 | 26µs | ( defined $attribute_name ) | ||
49 | || $self->_throw_exception( MustDefineAnAttributeName => class_name => $self->name ); | ||||
50 | |||||
51 | 190 | 531µs | 190 | 54µs | exists $self->_attribute_map->{$attribute_name}; # spent 54µs making 190 calls to Class::MOP::Mixin::HasAttributes::_attribute_map, avg 285ns/call |
52 | } | ||||
53 | |||||
54 | # spent 269µs (242+27) within Class::MOP::Mixin::HasAttributes::get_attribute which was called 131 times, avg 2µs/call:
# 76 times (150µs+20µs) by Class::MOP::Class::_inline_accessors at line 1425 of Class/MOP/Class.pm, avg 2µs/call
# 55 times (92µs+7µs) by Class::MOP::Class::find_attribute_by_name at line 927 of Class/MOP/Class.pm, avg 2µs/call | ||||
55 | 131 | 24µs | my ( $self, $attribute_name ) = @_; | ||
56 | |||||
57 | 131 | 14µs | ( defined $attribute_name ) | ||
58 | || $self->_throw_exception( MustDefineAnAttributeName => class_name => $self->name ); | ||||
59 | |||||
60 | 131 | 301µs | 131 | 27µs | return $self->_attribute_map->{$attribute_name}; # spent 27µs making 131 calls to Class::MOP::Mixin::HasAttributes::_attribute_map, avg 207ns/call |
61 | } | ||||
62 | |||||
63 | sub remove_attribute { | ||||
64 | my ( $self, $attribute_name ) = @_; | ||||
65 | |||||
66 | ( defined $attribute_name ) | ||||
67 | || $self->_throw_exception( MustDefineAnAttributeName => class_name => $self->name ); | ||||
68 | |||||
69 | my $removed_attribute = $self->_attribute_map->{$attribute_name}; | ||||
70 | return unless defined $removed_attribute; | ||||
71 | |||||
72 | delete $self->_attribute_map->{$attribute_name}; | ||||
73 | |||||
74 | return $removed_attribute; | ||||
75 | } | ||||
76 | |||||
77 | # spent 98µs (88+10) within Class::MOP::Mixin::HasAttributes::get_attribute_list which was called 33 times, avg 3µs/call:
# 33 times (88µs+10µs) by Class::MOP::Class::_inline_accessors at line 1424 of Class/MOP/Class.pm, avg 3µs/call | ||||
78 | 33 | 4µs | my $self = shift; | ||
79 | 33 | 110µs | 33 | 10µs | keys %{ $self->_attribute_map }; # spent 10µs making 33 calls to Class::MOP::Mixin::HasAttributes::_attribute_map, avg 312ns/call |
80 | } | ||||
81 | |||||
82 | sub _restore_metaattributes_from { | ||||
83 | my $self = shift; | ||||
84 | my ($old_meta) = @_; | ||||
85 | |||||
86 | for my $attr (sort { $a->insertion_order <=> $b->insertion_order } | ||||
87 | map { $old_meta->get_attribute($_) } | ||||
88 | $old_meta->get_attribute_list) { | ||||
89 | $attr->_make_compatible_with($self->attribute_metaclass); | ||||
90 | $self->add_attribute($attr); | ||||
91 | } | ||||
92 | } | ||||
93 | |||||
94 | 1 | 2µs | 1; | ||
95 | |||||
96 | # ABSTRACT: Methods for metaclasses which have attributes | ||||
97 | |||||
98 | __END__ |