File Coverage

blib/lib/Bio/ConnectDots/Dot.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	4	6	66.6
condition	2	3	66.6
subroutine	6	6	100.0
pod	0	2	0.0
total	30	35	85.7

package Bio::ConnectDots::Dot;
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(id dot_set db_id
		    _connectors);
@OTHER_ATTRIBUTES=qw();
%SYNONYMS=();
Class::AutoClass::declare(__PACKAGE__,\@AUTO_ATTRIBUTES,\%SYNONYMS);

sub _init_self {
  my($self,$class,$args)=@_;
  return unless $class eq __PACKAGE__; # to prevent subclasses from re-running this
}
sub connectors {
  my $self= shift;
  my $connectors=$self->_connectors || $self->_connectors([]);
  push(@$connectors,@_) if @_;
  wantarray? @$connectors: $connectors;
}
sub put {
  my ($self,$connector) = @_;
  $self->connectors($connector);
  $connector;
}
1;
__END__