# introspection
-sub meta {
+sub meta {
require Class::MOP::Class;
Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
}
}
# RANT:
-# Cmon, how many times have you written
+# Cmon, how many times have you written
# the following code while debugging:
-#
-# use Data::Dumper;
+#
+# use Data::Dumper;
# warn Dumper $obj;
#
-# It can get seriously annoying, so why
+# It can get seriously annoying, so why
# not just do this ...
-sub dump {
+sub dump {
my $self = shift;
require Data::Dumper;
local $Data::Dumper::Maxdepth = shift || 1;
1;
+# ABSTRACT: Base class for metaclasses
+
__END__
=pod
-=head1 NAME
-
-Class::MOP::Object - Base class for metaclasses
-
=head1 DESCRIPTION
This class is a very minimal base class for metaclasses.