X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FUser.pm;h=50a09657233ae06e9951d4e7003559b66b445df5;hb=1a23ad80738aae9eae58f9ecfbab9f52bd6c74a7;hp=3c4cf6a02da445d3a33d4c764e0847409b981cac;hpb=9204a23b54717c810acb7351fa2a5fb37bed54a1;p=debbugs.git

diff --git a/Debbugs/User.pm b/Debbugs/User.pm
index 3c4cf6a..50a0965 100644
--- a/Debbugs/User.pm
+++ b/Debbugs/User.pm
@@ -257,6 +257,11 @@ sub tags_on_bug {
     return map {@{$self->{"bug_tags"}{$_}//[]}} @_;
 }
 
+sub has_bug_tags {
+    my $self = shift;
+    return keys %{$self->{bug_tags}} > 0;
+}
+
 sub write {
     my $self = shift;