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