use Class::MOP::Attribute;
use Class::MOP::Method;
-use Class::MOP::Class::Immutable;
+use Class::MOP::Immutable;
-our $VERSION = '0.36';
+our $VERSION = '0.39';
our $AUTHORITY = 'cpan:STEVAN';
{
# because I don't yet see a good reason to do so.
}
+sub load_class {
+ my $class = shift;
+ # see if this is already
+ # loaded in the symbol table
+ return 1 if is_class_loaded($class);
+ # otherwise require it ...
+ my $file = $class . '.pm';
+ $file =~ s{::}{/}g;
+ eval { CORE::require($file) };
+ confess "Could not load class ($class) because : $@" if $@;
+ unless (does_metaclass_exist($class)) {
+ eval { Class::MOP::Class->initialize($class) };
+ confess "Could not initialize class ($class) because : $@" if $@;
+ }
+ 1; # return true if it worked
+}
+
+sub is_class_loaded {
+ my $class = shift;
+ no strict 'refs';
+ return 1 if defined ${"${class}::VERSION"} || defined @{"${class}::ISA"};
+ foreach (keys %{"${class}::"}) {
+ next if substr($_, -2, 2) eq '::';
+ return 1 if defined &{"${class}::$_"};
+ }
+ return 0;
+}
+
+
## ----------------------------------------------------------------------------
## Setting up our environment ...
## ----------------------------------------------------------------------------
);
Class::MOP::Method::Constructor->meta->add_attribute(
- Class::MOP::Attribute->new('$!meta_instance' => (
- init_arg => 'meta_instance',
- reader => {
- 'meta_instance' => \&Class::MOP::Method::Constructor::meta_instance
- },
- ))
-);
-
-Class::MOP::Method::Constructor->meta->add_attribute(
- Class::MOP::Attribute->new('@!attributes' => (
- init_arg => 'attributes',
+ Class::MOP::Attribute->new('$!associated_metaclass' => (
+ init_arg => 'metaclass',
reader => {
- 'attributes' => \&Class::MOP::Method::Constructor::attributes
- },
+ 'associated_metaclass' => \&Class::MOP::Method::Constructor::associated_metaclass
+ },
))
);
Class::MOP - A Meta Object Protocol for Perl 5
-=head1 SYNOPSIS
-
- # ... This will come later, for now see
- # the other SYNOPSIS for more information
-
=head1 DESCRIPTON
This module is an attempt to create a meta object protocol for the
=head1 FUNCTIONS
+=head2 Utility functions
+
+=over 4
+
+=item B<load_class ($class_name)>
+
+This will load a given C<$class_name> and if it does not have an
+already initialized metaclass, then it will intialize one for it.
+
+=item B<is_class_loaded ($class_name)>
+
+This will return a boolean depending on if the C<$class_name> has
+been loaded.
+
+NOTE: This does a basic check of the symbol table to try and
+determine as best it can if the C<$class_name> is loaded, it
+is probably correct about 99% of the time.
+
+=back
+
+=head2 Metaclass cache functions
+
Class::MOP holds a cache of metaclasses, the following are functions
(B<not methods>) which can be used to access that cache. It is not
recommended that you mess with this, bad things could happen. But if
=back
-=head2 Article
+=head2 Articles
=over 4
exception. If you find a bug please either email me, or add the bug
to cpan-RT.
-=head1 CODE COVERAGE
-
-I use L<Devel::Cover> to test the code coverage of my tests, below is the
-L<Devel::Cover> report on this module's test suite.
-
- ---------------------------- ------ ------ ------ ------ ------ ------ ------
- File stmt bran cond sub pod time total
- ---------------------------- ------ ------ ------ ------ ------ ------ ------
- Class/MOP.pm 97.7 100.0 88.9 94.7 100.0 3.2 96.6
- Class/MOP/Attribute.pm 75.5 77.9 82.4 88.3 100.0 4.0 81.5
- Class/MOP/Class.pm 96.9 88.8 72.1 98.2 100.0 35.8 91.4
- Class/MOP/Class/Immutable.pm 88.2 60.0 n/a 95.5 100.0 0.5 84.6
- Class/MOP/Instance.pm 86.4 75.0 33.3 86.2 100.0 1.2 87.5
- Class/MOP/Method.pm 97.5 75.0 61.5 80.6 100.0 12.7 89.7
- Class/MOP/Module.pm 100.0 n/a 55.6 100.0 100.0 0.1 90.7
- Class/MOP/Object.pm 73.3 n/a 20.0 80.0 100.0 0.1 66.7
- Class/MOP/Package.pm 94.6 71.7 33.3 100.0 100.0 42.2 87.0
- metaclass.pm 100.0 100.0 83.3 100.0 n/a 0.2 97.7
- ---------------------------- ------ ------ ------ ------ ------ ------ ------
- Total 91.3 80.4 69.8 91.9 100.0 100.0 88.1
- ---------------------------- ------ ------ ------ ------ ------ ------ ------
-
=head1 ACKNOWLEDGEMENTS
=over 4
Stevan Little E<lt>stevan@iinteractive.comE<gt>
-Yuval Kogman E<lt>nothingmuch@woobling.comE<gt>
+B<with contributions from:>
+
+Brandon (blblack) Black
+
+Guillermo (groditi) Roditi
+
+Rob (robkinyon) Kinyon
+
+Yuval (nothingmuch) Kogman
=head1 COPYRIGHT AND LICENSE
-Copyright 2006 by Infinity Interactive, Inc.
+Copyright 2006, 2007 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>