package Bio::SeqFeature::SeqFeatureRelationship;

use strict;
use base qw(Bio::Root::Root);


sub new(){
  my $class= shift;
  $class = ref($class) if ref $class;
  my %arg = @_;

  my $self = bless {},$class;
  
  $self->object($arg{-object})   if exists $arg{-object};
  $self->subject($arg{-subject})   if exists $arg{-subject};
  $self->type("child"); 
   
  $self;
}

sub object(){
  my ($self,$value) = @_;
  if( defined $value ) {
 	  $self->{'_object'} = $value;
  }
  return $self->{'_object'};
}

sub subject(){
  my ($self,$value) = @_;
  if( defined $value ) {
	  $self->{'_subject'} = $value;
  }
  return $self->{'_subject'};
}

sub type(){
  my ($self,$value) = @_;
  if( defined $value ) {
 	$self->throw("type can only be 'child' for now ")  unless ($value eq "child");
 	$self->{'_type'} = $value;
  }
  return $self->{'_type'};
}

1;