[Bioperl-guts-l] bioperl-live/Bio/Annotation AnnotationFactory.pm, 1.2, 1.3

[Heikki Lehvaslaiho]

Update of /home/repository/bioperl/bioperl-live/Bio/Annotation
In directory pub.open-bio.org:/tmp/cvs-serv16276

Modified Files:
	AnnotationFactory.pm 
Log Message:
add Bio::Annotation::Target to guessed types.
Doc fixes: type is guessed, there is no default value


Index: AnnotationFactory.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Annotation/AnnotationFactory.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** AnnotationFactory.pm	6 Oct 2005 00:57:32 -0000	1.2
--- AnnotationFactory.pm	17 Jan 2006 13:15:42 -0000	1.3
***************
*** 101,105 ****
   Returns : Bio::Annotation::AnnotationFactory
   Args    : -type => string, name of a L<Bio::AnnotationI> derived class.
!                     The default is L<Bio::Ontology::Term>.
  
  =cut
--- 101,107 ----
   Returns : Bio::Annotation::AnnotationFactory
   Args    : -type => string, name of a L<Bio::AnnotationI> derived class.
! 
! If type is not set the module guesses it based on arguments passed to
! method L<create_object>.
  
  =cut
***************
*** 220,224 ****
  
      # we can only guess from a certain number of arguments
!     my ($val,$db,$text,$name,$authors) =
  	$self->_rearrange([qw(VALUE
  			      DATABASE
--- 222,226 ----
  
      # we can only guess from a certain number of arguments
!     my ($val,$db,$text,$name,$authors, $start) =
  	$self->_rearrange([qw(VALUE
  			      DATABASE
***************
*** 226,229 ****
--- 228,232 ----
  			      NAME
  			      AUTHORS
+                               START
  			      )], @args);
    SWITCH: {
***************
*** 233,236 ****
--- 236,240 ----
        $text       && do { $type = "Comment"; last SWITCH; };
        $name       && do { $type = "OntologyTerm"; last SWITCH; };
+       $start      && do { $type = "Target"; last SWITCH; };
        # what else could we look for?
    }