use Class::MOP::Attribute;
use Class::MOP::Method;
-our $VERSION = '0.20';
+our $VERSION = '0.30';
## ----------------------------------------------------------------------------
## Setting up our environment ...
))
);
+Class::MOP::Class->meta->add_attribute(
+ Class::MOP::Attribute->new('$:instance_metaclass' => (
+ reader => 'instance_metaclass',
+ init_arg => ':instance_metaclass',
+ default => 'Class::MOP::Instance',
+ ))
+);
+
## Class::MOP::Attribute
Class::MOP::Attribute->meta->add_attribute(
---------------------------- ------ ------ ------ ------ ------ ------ ------
File stmt bran cond sub pod time total
---------------------------- ------ ------ ------ ------ ------ ------ ------
- Class/MOP.pm 100.0 100.0 100.0 100.0 n/a 21.4 100.0
- Class/MOP/Attribute.pm 100.0 100.0 88.9 100.0 100.0 27.1 99.3
- Class/MOP/Class.pm 100.0 100.0 93.7 100.0 100.0 44.8 99.1
- Class/MOP/Method.pm 100.0 100.0 83.3 100.0 100.0 4.8 97.1
- metaclass.pm 100.0 100.0 80.0 100.0 n/a 1.9 97.3
+ Class/MOP.pm 100.0 100.0 100.0 100.0 n/a 9.6 100.0
+ Class/MOP/Attribute.pm 100.0 100.0 91.7 73.8 100.0 28.4 92.1
+ Class/MOP/Class.pm 100.0 93.5 82.3 98.2 100.0 56.6 95.7
+ Class/MOP/Method.pm 100.0 64.3 52.9 80.0 100.0 3.5 85.3
+ metaclass.pm 100.0 100.0 80.0 100.0 n/a 1.9 97.4
---------------------------- ------ ------ ------ ------ ------ ------ ------
- Total 100.0 100.0 92.2 100.0 100.0 100.0 99.0
+ Total 100.0 90.8 79.7 86.2 100.0 100.0 93.6
---------------------------- ------ ------ ------ ------ ------ ------ ------
=head1 ACKNOWLEDGEMENTS