#------------------------------------------------------------------------------
#$Author$
#$Date$ 
#$Revision$
#$URL$
#------------------------------------------------------------------------------
#*
#  Perl object ...
#**

package BaseObject;
use strict;
use warnings;

use fields qw( name );

# Object constructor

sub new { 
    my ($self, $name) = @_;

    $self = fields::new($self) unless (ref $self);
    $self->{name} = $name;
    
    return $self;
}

sub name
{
    $_[0]->{name};
}

1;