flesh out the data model a bit

1 files changed, 53 insertions, 0 deletions

diff --git a/lib/Narwhal/Page/Revision.pm b/lib/Narwhal/Page/Revision.pm
new file mode 100644
index 0000000..08a21c9
--- /dev/null
+++ b/lib/Narwhal/Page/Revision.pm
@@ -0,0 +1,53 @@
+package Narwhal::Page::Revision;
+use KiokuDB::Class;
+
+use DateTime;
+
+with 'KiokuDB::Role::ID::Digest', 'MooseX::Clone';
+
+has text => (
+    is       => 'ro',
+    isa      => 'Str',
+    required => 1,
+);
+
+has author => (
+    is       => 'ro',
+    isa      => 'Narwhal::User',
+    required => 1,
+);
+
+has modification_date => (
+    traits  => ['NoClone'],
+    is      => 'ro',
+    isa     => 'DateTime',
+    default => sub { DateTime->now },
+);
+
+has previous_revision => (
+    traits => ['KiokuDB::Lazy'],
+    is     => 'ro',
+    isa    => 'Narwhal::Page::Revision',
+);
+
+sub new_revision {
+    my $self = shift;
+    $self->clone(
+        previous_revision => $self,
+        @_,
+    );
+}
+
+sub digest_parts {
+    my $self = shift;
+    return (
+        $self->text,
+        $self->modification_date->iso8601,
+        $self->author->id,
+    );
+}
+
+__PACKAGE__->meta->make_immutable;
+no KiokuDB::Class;
+
+1;