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;