make has_tag() method less cryptic

bioperl · Mar 9, 2012 · a870026 · a870026
1 parent e5e3ff2
commit a870026
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/Bio/SeqFeature/Lite.pm b/Bio/SeqFeature/Lite.pm
@@ -765,7 +765,11 @@ sub introns {
   return;
 }
 
-sub has_tag { exists shift->{attributes}{shift()} }
+sub has_tag { 
+    my $self = shift;
+    my $tag  = shift;
+    return exists $self->{attributes}{$tag};
+}
 
 sub escape {
   my $self     = shift;