to_string() now adds a dump of the generic annotations as well

rvosa · Feb 27, 2015 · 990dee9 · 990dee9
1 parent e0b0290
commit 990dee9
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/lib/Bio/PhyloRole.pm b/lib/Bio/PhyloRole.pm
@@ -1,6 +1,7 @@
 package Bio::PhyloRole;
 use strict;
 use base 'Bio::Phylo::Identifiable';
+use Data::Dumper;
 use Bio::Phylo::Util::CONSTANT '/looks_like/';
 use Bio::Phylo::Identifiable;              # for storing unique IDs inside an instance
 use Bio::Phylo::Util::Exceptions 'throw';  # defines exception classes and throws
@@ -176,13 +177,15 @@ Serializes object to general purpose string
         my $name          = $self->get_name  || '';
         my $score         = $self->get_score || '';
         my $desc          = $self->get_desc  || '';
+        my $gen           = Dumper($self->get_generic) || '';
         return <<"SERIALIZED_OBJECT";
 class: $class
 id: $id
 internal_name: $internal_name
 name: $name
 score: $score
 desc: $desc
+generic: $gen
 SERIALIZED_OBJECT
     }