sub _init {
    my ($self, %initdata) = @_;
    if (%initdata) {
        map { $self{$_} = $initdata{$_} } keys %initdata;
    }
}