lib/IronMunger/Post.pm

   1 use MooseX::Declare;
   2
   3 class IronMunger::Post {
   4
   5   use MooseX::Types::Moose qw(Str);
   6   use MooseX::Types::DateTimeX qw(DateTime);
   7
   8   has at => (isa => DateTime, is => 'ro', required => 1, coerce => 1);
   9
  10   has url => (isa => Str, is => 'ro', required => 1);
  11
  12   method debug_dump () {
  13     join("\n", (map join(': ', $_, $self->$_), qw(at url)), '');
  14   }
  15 }
  16
  17 1;