only include users which have bugs

[debbugs.git] / Debbugs / User.pm

diff --git a/Debbugs/User.pm b/Debbugs/User.pm
index 3c4cf6a02da445d3a33d4c764e0847409b981cac..50a09657233ae06e9951d4e7003559b66b445df5 100644 (file)
--- 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;