lib/Narwhal/User.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

package Narwhal::User;
use Moose;

with 'KiokuDB::Role::ID';

has id => (
    is       => 'ro',
    isa      => 'Str',
    required => 1,
);

has is_anon => (
    is      => 'ro',
    isa     => 'Str',
    default => 0,
);

sub kiokudb_object_id { 'user:' . shift->id }

__PACKAGE__->meta->make_immutable;
no Moose;

1;