package Object;

sub new {
    my $type = shift;
    my %param = @_;
    my $self = {};
    $self->{name}=$param{name} if (exists $param{name});
    bless $self, $type;
}

sub addPropertie {
    my $self=shift;
    my $key=shift;
    $self->{$key}=shift;
}

sub addProperties {
    my $self=shift;
    my %keys=@_;
    for my $key (keys(%keys)) {
		$self->{$key}=$keys{$key};
    }
}

sub print {
    my $self=shift;
    for my $key (keys(%{$self})) {
		print "\t $key => ";
		if ($self->{$key}) {
			print $self->{$key};
		}
		print "\n";
    }
    print "\n";
}    

sub printHash {
	my $self=shift;
	my $ref_h=shift;
	my $str_return="";

	for $key (keys(%{$ref_h})) {
		$str_return .= "$key => ".$ref_h->{$key}."\n";
	}
	return $str_return;
}

sub printArray {
	my $self=shift;
	my $ref_a=shift;
	my $str_return="";

	for $key (@$ref_a) {
		$str_return .= "\t => ".$key."\n";
	}
	return $str_return;
}
1;