lib/Narwhal/Component/Model.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

package Narwhal::Component::Model;
use Moose;

extends 'KiokuX::Model';

sub get_user {
    my $self = shift;
    my ($user_id) = @_;
    return $self->lookup("user:$user_id");
}

sub get_page {
    my $self = shift;
    my ($page_id) = @_;
    return $self->lookup("page:$page_id");
}

sub get_page_rev {
    my $self = shift;
    my ($page_id, $page_rev) = @_;
    my $rev = $self->lookup($page_rev);
    return unless $rev;
    return unless $rev->page_id eq $page_id;
    return $rev;
}

sub create_page_rev {
    my $self = shift;
    my %opts = @_;

    my $page_name = delete $opts{page_name};
    my $page = $self->get_page($page_name);

    if ($page) {
        $page->new_revision(%opts);
    }
    else {
        $page = Narwhal::Page->new_page(
            id => $page_name,
            %opts,
        );
    }

    $self->store($page);
}

__PACKAGE__->meta->make_immutable;
no Moose;

1;