Add users to a collection

[debbugs.git] / Debbugs / Collection / Bug.pm

diff --git a/Debbugs/Collection/Bug.pm b/Debbugs/Collection/Bug.pm
index 4982047b2c59ec799f41c835161161ae00f704c0..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):());
 }
 
+has 'users' =>
+    (is => 'ro',
+     isa => 'ArrayRef[Debbugs::User]',
+     traits => ['Array'],
+     default => sub {[]},
+     handles => {'add_user' => 'push'},
+    );
+
 sub BUILD {
     my $self = shift;
     my $args = shift;
@@ -86,6 +94,8 @@ sub _member_constructor {
                                   schema => $schema,
                                   package_collection =>
                                   $self->package_collection->universe,
+                                  bug_collection =>
+                                  $self->universe,
                                   correspondent_collection =>
                                   $self->correspondent_collection->universe,
                                   @{$args{constructor_args}//[]},
@@ -97,6 +107,8 @@ sub _member_constructor {
                 Debbugs::Bug->new(bug => $bug,
                                   package_collection =>
                                   $self->package_collection->universe,
+                                  bug_collection =>
+                                  $self->universe,
                                   correspondent_collection =>
                                   $self->correspondent_collection->universe,
                                   @{$args{constructor_args}//[]},