sub configure_object {
    my $object = shift;
    while(@_) {
        my ($meth, $param) = splice @_, 0, 2;
        my $obj = $object;
		
        until((not defined $param) or ref $param) {
            $obj = $obj->$meth;
            ($meth, $param) = ($param, shift);
        }

        $obj->$meth(@{ $param || [] });
    }
    return $object;
}