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

package Object;
use strict;
use warnings;

use base qw( BaseObject );
use fields qw( title );

# Object constructor

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

    ## my $self = fields::new($class);
    $self = fields::new($self) unless (ref $self);
    $self->SUPER::new( $name );
    $self->{title} = $title;
    
    return $self;
}

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

1;
