blob: 1c7b56817005678f52129d74507357ab83a4d7d7 (
plain)
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
|
package Bucky::Thread;
use base 'Bucky';
sub type { $Bucky::Thread }
sub fields
{[qw[
id title username keyword private allowed
createdate lastmodified revision viewed
size color display flagged zipped
]]}
sub _id { shift->{id} }
sub _title { shift->{title} }
sub _username { shift->{username} }
sub _keyword { shift->{keyword} }
sub _private { shift->{private} }
sub _allowed { shift->{allowed} }
sub _createdate { shift->{createdate} }
sub _lastmodified { shift->{lastmodified} }
sub _revision { shift->{revision} }
sub _viewed { shift->{viewed} }
sub _size { shift->{size} }
sub _color { shift->{color} }
sub _display { shift->{display} }
sub _flagged { shift->{flagged} }
sub _zipped { shift->{zipped} }
1;
|
