sub getProperties
{
    my $props = {}; 
 .
 .
 .
        if ($name ne "")
        {
            $props->{$name} = $value;
        }
 .
 .
 .
    bless($props);
    return $props;
}