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

my @fields;

BEGIN {
    @fields = qw(
      id
    );
}

use constant {
    BUG_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->BUG_FIELDS;
}


1;