Add users to a collection

diff --git a/Debbugs/Collection/Bug.pm b/Debbugs/Collection/Bug.pm
index c773b59d043d0474191ddebdbe4d99913035b698..440c678576d81a1d51c35cccd0dd8bf16c71da80 100644 (file)
--- a/Debbugs/Collection/Bug.pm
+++ b/Debbugs/Collection/Bug.pm
@@ -57,6 +57,14 @@ sub _build_correspondent_collection {
     return Debbugs::Collection::Correspondent->new($self->has_schema?(schema => $self->schema):());
 }
 
     return Debbugs::Collection::Correspondent->new($self->has_schema?(schema => $self->schema):());
 }
 

+has 'users' =>
+    (is => 'ro',
+     isa => 'ArrayRef[Debbugs::User]',
+     traits => ['Array'],
+     default => sub {[]},
+     handles => {'add_user' => 'push'},
+    );
+

 sub BUILD {
     my $self = shift;
     my $args = shift;
 sub BUILD {
     my $self = shift;
     my $args = shift;