Pelrl class implementing "getters and setters "

package WhateverName ;
my $fields = {} ; #this hash describes each property of
#the class

sub new
{
my $invocant= shift ;
my $class = ref ($invocant ) || $invocant ; #could be called as object cloning method
my $self = {} ;
my $fields = { @_, }; #get the passed parameters to the constr
while (@_)
{
my $name = shift ;
my $value = shift ;
set( $self , $name , $value );
}
bless $self , $class ;
return $self ;
}

sub get {
shift;
my $name = shift;
return $fields->{$name};
}

sub set {
shift;
my $name = shift;
my $value = shift;
$fields->{$name}=$value;
}

sub dumpFields
{
my $self = shift ;
foreach $key (keys %$fields)
{
print "$key = $fields->{$key}\n";
}
}


1;
__END__