X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FObject.pm;h=9a0cdf7414badf7fabb7c435e8b9e22d2adc463c;hb=064a13a3104c7c38981bdc571b130da00b59945a;hp=c2b90bb319a7d51d08e3c3a7d3695ade47c105b3;hpb=f899cf32ec1fec50bb9b4c2f9a7a00ebc0139bbf;p=gitmo%2FMoose.git

diff --git a/lib/Class/MOP/Object.pm b/lib/Class/MOP/Object.pm
index c2b90bb..9a0cdf7 100644
--- a/lib/Class/MOP/Object.pm
+++ b/lib/Class/MOP/Object.pm
@@ -9,7 +9,7 @@ use Scalar::Util 'blessed';
 
 # introspection
 
-sub meta { 
+sub meta {
     require Class::MOP::Class;
     Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
 }
@@ -19,15 +19,15 @@ sub _new {
 }
 
 # 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;
@@ -93,14 +93,12 @@ sub _get_compatible_metaclass_by_subclassing {
 
 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.