sub new    {
  my ($class, $name, $offset, $comment, @fields) = @_;

  my $self = {
    name => $name,
    offset => $offset,
    comment => $comment,
    field_ptr => \@fields,
  };
  return bless($self, $class);
}
[download]