sub new {
    my $class = shift;
    my $self  = {
        properties => {},
        entries    => [],
    };
    bless $self, $class;
    return $self;
}