Revision history for Perl extension Class-MOP.
+0.34
+ * Class::MOP::Class
+ - added the %:methods attribute, which like
+ the $:version and such just actually goes
+ to the symbol table to get it's stuff.
+ However, it makes the MOP more complete.
+
+ * Class::MOP::Object
+ - added &dump method to easily Data::Dumper
+ an object
+
+ * Class::MOP
+ - cleaned up the initialization of attributes
+ which do not store things in the instance
+ - added the %:methods attribute definition to
+ the bootstrap
+
0.33 Sat. Aug. 19, 2006
* Class::MOP::Class
- moved the metaclass cache out of here
-Class::MOP version 0.33
+Class::MOP version 0.34
===========================
See the individual module documentation for more information
use Class::MOP::Class::Immutable;
-our $VERSION = '0.33';
+our $VERSION = '0.34';
our $AUTHORITY = 'cpan:STEVAN';
{
# NOTE:
# protect this from silliness
init_arg => '!............( DO NOT DO THIS )............!',
+ default => sub { \undef }
))
);
# NOTE:
# protect this from silliness
init_arg => '!............( DO NOT DO THIS )............!',
+ default => sub { \undef }
))
);
# NOTE:
# protect this from silliness
init_arg => '!............( DO NOT DO THIS )............!',
+ default => sub { \undef }
))
);
);
Class::MOP::Class->meta->add_attribute(
+ Class::MOP::Attribute->new('%:methods' => (
+ reader => {
+ # NOTE:
+ # as with the $VERSION and $AUTHORITY above
+ # sometimes we don't/can't store directly
+ # inside the instance, so we need the accessor
+ # to just DWIM
+ 'get_method_map' => sub {
+ my $self = shift;
+ # FIXME:
+ # there is a faster/better way
+ # to do this, I am sure :)
+ return +{
+ map {
+ $_ => $self->get_method($_)
+ } grep {
+ $self->has_method($_)
+ } $self->list_all_package_symbols
+ };
+ }
+ },
+ init_arg => '!............( DO NOT DO THIS )............!',
+ default => sub { \undef }
+ ))
+);
+
+Class::MOP::Class->meta->add_attribute(
Class::MOP::Attribute->new('$:attribute_metaclass' => (
reader => 'attribute_metaclass',
init_arg => ':attribute_metaclass',
use Sub::Name 'subname';
use B 'svref_2object';
-our $VERSION = '0.18';
+our $VERSION = '0.19';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Module';
$meta = bless {
# inherited from Class::MOP::Package
'$:package' => $package_name,
- '%:namespace' => \%{$package_name . '::'},
+
+ # NOTE:
+ # since the following attributes will
+ # actually be loaded from the symbol
+ # table, and actually bypass the instance
+ # entirely, we can just leave these things
+ # listed here for reference, because they
+ # should not actually have a value associated
+ # with the slot.
+ '%:namespace' => \undef,
# inherited from Class::MOP::Module
- '$:version' => (exists ${$package_name . '::'}{'VERSION'} ? ${$package_name . '::VERSION'} : undef),
- '$:authority' => (exists ${$package_name . '::'}{'AUTHORITY'} ? ${$package_name . '::AUTHORITY'} : undef),
- # defined here ...
- '%:attributes' => {},
+ '$:version' => \undef,
+ '$:authority' => \undef,
+ # defined in Class::MOP::Class
+ '%:methods' => \undef,
+
+ '%:attributes' => {},
'$:attribute_metaclass' => $options{':attribute_metaclass'} || 'Class::MOP::Attribute',
'$:method_metaclass' => $options{':method_metaclass'} || 'Class::MOP::Method',
'$:instance_metaclass' => $options{':instance_metaclass'} || 'Class::MOP::Instance',
sub method_metaclass { $_[0]->{'$:method_metaclass'} }
sub instance_metaclass { $_[0]->{'$:instance_metaclass'} }
+sub get_method_map {
+ my $self = shift;
+ # FIXME:
+ # there is a faster/better way
+ # to do this, I am sure :)
+ return +{
+ map {
+ $_ => $self->get_method($_)
+ } grep {
+ $self->has_method($_)
+ } $self->list_all_package_symbols
+ };
+}
+
# Instance Construction & Cloning
sub new_object {
=over 4
+=item B<get_method_map>
+
=item B<method_metaclass>
=item B<add_method ($method_name, $method)>
use Scalar::Util 'blessed';
-our $VERSION = '0.01';
+our $VERSION = '0.02';
our $AUTHORITY = 'cpan:STEVAN';
# introspection
Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
}
+# RANT:
+# Cmon, how many times have you written
+# the following code while debugging:
+#
+# use Data::Dumper;
+# warn Dumper $obj;
+#
+# It can get seriously annoying, so why
+# not just do this ...
+sub dump {
+ my $self = shift;
+ require Data::Dumper;
+ $Data::Dumper::Maxdepth = shift || 1;
+ Data::Dumper::Dumper $self;
+}
+
1;
__END__
=item B<meta>
+=item B<dump (?$max_depth)>
+
=back
=head1 AUTHORS
use Scalar::Util 'blessed';
use Carp 'confess';
-our $VERSION = '0.03';
+our $VERSION = '0.04';
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Object';
# reference to the hash in the accessor.
# Ideally we could just store a ref and
# it would Just Work, but oh well :\
- #'%:namespace' => \%{$package_name . '::'},
+ '%:namespace' => \undef,
} => $class;
}
use strict;
use warnings;
-use Test::More tests => 185;
+use Test::More tests => 189;
use Test::Exception;
BEGIN {
superclasses class_precedence_list
has_method get_method add_method remove_method alias_method
- get_method_list compute_all_applicable_methods
+ get_method_list get_method_map compute_all_applicable_methods
find_method_by_name find_all_methods_by_name find_next_method_by_name
add_before_method_modifier add_after_method_modifier add_around_method_modifier
);
my @class_mop_class_attributes = (
+ '%:methods',
'%:attributes',
'$:attribute_metaclass',
'$:method_metaclass',
projects / gitmo/Class-MOP.git / commitdiff