sub _init {
    my $this = shift;
    my $that = { @_ };
    
    while( my ($k, $v) each %$that ) {
        $this->{$k} = $v;
    }
}