Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

implemented hash_tree and added a test

  • Loading branch information...
commit 13cd3dc1675d89ab8f2a5665751eb5ed9592d65f 1 parent aa76e87
@Takadonet Takadonet authored
Showing with 6 additions and 7 deletions.
  1. +5 −6 lib/Bio/Annotation/SimpleValue.pm
  2. +1 −1  t/Annotation/Annotation.t
View
11 lib/Bio/Annotation/SimpleValue.pm
@@ -74,13 +74,12 @@ method display_text($cb? is copy) {
# =cut
-# method hash_tree{
-# my $self = shift;
-# my $h = {};
-# $h->{'value'} = $self->value;
-# return $h;
-# }
+method hash_tree(){
+ my %h;
+ %h{'value'} = self.value;
+ return %h;
+}
# =head2 tagname
View
2  t/Annotation/Annotation.t
@@ -42,7 +42,7 @@ is $simple.as_text, 'Value: 1';
is $simple.value, 1;
is $simple.tagname, 'colour';
is $simple.tag_term, Any;
-
+is $simple.hash_tree.{'value'},1;
is $simple.value(0), 0;
is $simple.value, 0;
is $simple.display_text, 0;
Please sign in to comment.
Something went wrong with that request. Please try again.