File Coverage

blib/lib/Bio/ConnectDots/Connector.pm

Criterion	Covered	Total	%
statement	43	44	97.7
branch	10	18	55.5
condition	7	16	43.7
subroutine	9	9	100.0
pod	0	5	0.0
total	69	92	75.0

package Bio::ConnectDots::Connector;
use vars qw(@ISA @AUTO_ATTRIBUTES @OTHER_ATTRIBUTES %SYNONYMS);
use strict;
use Class::AutoClass;
@ISA = qw(Class::AutoClass); # AutoClass must be first!!

@AUTO_ATTRIBUTES=qw(connectorset dots db_id
		    _dots);
@OTHER_ATTRIBUTES=qw();
%SYNONYMS=();
Class::AutoClass::declare(__PACKAGE__);

sub _init_self {
  my($self,$class,$args)=@_;
  return unless $class eq __PACKAGE__; # to prevent subclasses from re-running this
  my $connectorset=$self->connectorset;
  my $dots_hash=$args->dots_hash || ($connectorset && $connectorset->dots_hash);
  $self->put_dots($dots_hash) if $dots_hash;
}
sub name {
  my($self)=@_;
  $self->connectorset->name;
}
sub put {
  my($self,$label,$dot)=@_;
  my $dots=$self->dots || $self->dots({});
  my $dot_list=$dots->{$label} || ($dots->{$label}=[]);
  push(@$dot_list,$dot);
}
sub labels {
  my($self)=@_;
  my $dots=$self->dots || $self->dots({});
  my @labels=keys %$dots;
  wantarray? @labels: \@labels;
}
sub get_dots {
  my($self,$label)=@_;
  my $dots=$self->dots || $self->dots({});
  my $dots_list=$dots->{$label} || [];
  unless (defined $dots_list) {
    print "break here\n";
  }
  wantarray? @$dots_list: $dots_list;
}

sub put_dots {
  my $self=shift;
  return {} unless @_;
  my $dots_hash=@_==1? $_[0]: {@_};
  my $connectorset=$self->connectorset;
  my $label2dotset=$connectorset->label2dotset;
  while (my($label,$ids)=each %$dots_hash) {
    my $dotset=$label2dotset->{$label};
    $self->throw("label $label not valid for ConnectorSet ".$connectorset->name) unless $dotset;
    $ids=[$ids] unless 'ARRAY' eq ref $ids;
    my $dots;
    for my $id (@$ids) {
      my $dot=$dotset->lookup($id);
      $dot->put($self);
      $self->put($label,$dot);
    }
  }
}
1;
__END__