bucky2/lib/Bucky/Keyword.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

package Bucky::Keyword;

use base 'Bucky';

sub type { $Bucky::Keyword }
sub fields
	{[qw[
	id keyword threads owner createdate
	owner ops public
	agglutinate
	color display
	]]}

sub _id				{ shift->{id} }
sub _keyword		{ shift->{keyword} }
sub _threads		{ shift->{threads} }
sub _username		{ shift->{owner} }
sub _ops			{ shift->{ops} }
sub _public			{ shift->{public} }
sub _createdate		{ shift->{createdate} }
sub _agglutinate	{ shift->{agglutinate} }
sub _color			{ shift->{color} }
sub _display		{ shift->{display} }

1;