add debug code

[engit/Iron-Munger.git] / lib / IronMunger / Post.pm

diff --git a/lib/IronMunger/Post.pm b/lib/IronMunger/Post.pm
index 0a0057e..5d62b55 100644 (file)
--- a/lib/IronMunger/Post.pm
+++ b/lib/IronMunger/Post.pm
@@ -5,9 +5,13 @@ class IronMunger::Post {
   use MooseX::Types::Moose qw(Str);
   use MooseX::Types::DateTimeX qw(DateTime);
 
-  has at => (isa => DateTime, is => 'ro', required => 1);
+  has at => (isa => DateTime, is => 'ro', required => 1, coerce => 1);
 
   has url => (isa => Str, is => 'ro', required => 1);
+
+  method debug_dump () {
+    join("\n", (map join(': ', $_, $self->$_), qw(at url)), '');
+  }
 }
 
 1;