package Benzin::Bugzilla::BugComment;
use strict;

my @fields;

BEGIN {
	@fields = qw(
	  id
	  bug_id
	  attachment_id
	  count
	  text
	  creator
	  creation_time
	  is_private
	  is_markdown
	);
}

use constant { COMMENT_FIELDS => \@fields };

use IMPL::declare {
	base => [
		'IMPL::Object::Fields' => undef
	]
};

use fields @fields;

sub CTOR {
	my SELF $this = shift;
	my $data = shift;

	$this->{$_} = $data->{$_}
	  foreach grep exists $data->{$_}, @{ SELF->COMMENT_FIELDS };
}

1;