Moose::Object->dump, cause I am sick of manually loading Data::Dumper all the time

diff --git a/Changes b/Changes
index f1bba76..a9fade9 100644 (file)
--- a/Changes
+++ b/Changes
@@ -7,6 +7,10 @@ Revision history for Perl extension Moose
     * Moose
       - added ROADMAP section to detail the near term 
         plans for Moose
+        
+    * Moose::Object
+      - added &dump method, cause it makes all out lives 
+        easier really.
 
 0.11 Wed. July 12, 2006
     * Moose

diff --git a/lib/Moose/Object.pm b/lib/Moose/Object.pm
index b0c1676..e754eb4 100644 (file)
--- a/lib/Moose/Object.pm
+++ b/lib/Moose/Object.pm
@@ -57,6 +57,22 @@ sub does {
     return 0;   
 }
 
+# RANT:
+# Cmon, how many times have you written 
+# the following code while debugging:
+# 
+#  use Data::Dumper; 
+#  warn Dumper \%thing;
+#
+# It can get seriously annoying, so why 
+# not just do this ...
+sub dump { 
+    my $self = shift;
+    require Data::Dumper;
+    $Data::Dumper::Maxdepth = shift if @_;
+    Data::Dumper::Dumper $self;
+}
+
 1;
 
 __END__
@@ -104,6 +120,15 @@ This will call every C<DEMOLISH> method in the inheritance hierarchy.
 This will check if the invocant's class C<does> a given C<$role_name>. 
 This is similar to C<isa> for object, but it checks the roles instead.
 
+=item B<dump ($maxdepth)>
+
+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 use this.
+
 =back
 
 =head1 BUGS