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

use MooseX::Declare;

class IronMunger::Post {

  use MooseX::Types::Moose qw(Str);
  use MooseX::Types::DateTimeX qw(DateTime);

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