sub initialize
{
    my $self = shift;

    while (my ($key, $value) = splice @_, 0, 2))
    {
        $self->{$key} = $value;
    }
}