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