Debbugs/Collection/Bug.pm

   1 # This module is part of debbugs, and
   2 # is released under the terms of the GPL version 2, or any later
   3 # version (at your option). See the file README and COPYING for more
   4 # information.
   5 # Copyright 2018 by Don Armstrong <don@donarmstrong.com>.
   6
   7 package Debbugs::Collection::Bug;
   8
   9 =head1 NAME
  10
  11 Debbugs::Collection::Bug -- Bug generation factory
  12
  13 =head1 SYNOPSIS
  14
  15
  16 =head1 DESCRIPTION
  17
  18
  19
  20 =cut
  21
  22 use Mouse;
  23 use strictures 2;
  24 use namespace::autoclean;
  25 use Debbugs::Common qw(make_list hash_slice);
  26 use Debbugs::OOTypes;
  27 use Debbugs::Status qw(get_bug_statuses);
  28 use Debbugs::Collection::Package;
  29 use Debbugs::Collection::Correspondent;
  30
  31 use Debbugs::Bug;
  32
  33 extends 'Debbugs::Collection';
  34
  35 has '+members' => (isa => 'ArrayRef[Bug]');
  36 has 'package_collection' =>
  37     (is => 'ro',
  38      isa => 'Debbugs::Collection::Package',
  39      builder => '_build_package_collection',
  40      lazy => 1,
  41     );
  42
  43 sub _build_package_collection {
  44     my $self = shift;
  45     return Debbugs::Collection::Package->new($self->has_schema?(schema => $self->schema):());
  46 }
  47
  48 has 'correspondent_collection' =>
  49     (is => 'ro',
  50      isa => 'Debbugs::Collection::Correspondent',
  51      builder => '_build_correspondent_collection',
  52      lazy => 1,
  53     );
  54
  55 sub _build_correspondent_collection {
  56     my $self = shift;
  57     return Debbugs::Collection::Correspondent->new($self->has_schema?(schema => $self->schema):());
  58 }
  59
  60 sub BUILD {
  61     my $self = shift;
  62     my $args = shift;
  63     if (exists $args->{bugs}) {
  64         $self->add(
  65             $self->_member_constructor(bugs => $args->{bugs}
  66                                       ));
  67     }
  68 }
  69
  70 sub _member_constructor {
  71     # handle being called $self->_member_constructor;
  72     my $self = shift;
  73     my %args = @_;
  74     my @return;
  75     my $schema;
  76     $schema = $self->schema if $self->has_schema;
  77
  78     if (defined $schema) {
  79         my $statuses = get_bug_statuses(bug => [make_list($args{bugs})],
  80                                         schema => $schema,
  81                                        );
  82         while (my ($bug, $status) = each %{$statuses}) {
  83             push @return,
  84                 Debbugs::Bug->new(bug => $bug,
  85                                   status => $status,
  86                                   schema => $schema,
  87                                   package_collection =>
  88                                   $self->package_collection->universe,
  89                                   bug_collection =>
  90                                   $self->universe,
  91                                   correspondent_collection =>
  92                                   $self->correspondent_collection->universe,
  93                                   @{$args{constructor_args}//[]},
  94                                  );
  95         }
  96     } else {
  97         for my $bug (make_list($args{bugs})) {
  98             push @return,
  99                 Debbugs::Bug->new(bug => $bug,
 100                                   package_collection =>
 101                                   $self->package_collection->universe,
 102                                   bug_collection =>
 103                                   $self->universe,
 104                                   correspondent_collection =>
 105                                   $self->correspondent_collection->universe,
 106                                   @{$args{constructor_args}//[]},
 107                                  );
 108         }
 109     }
 110     return @return;
 111 }
 112
 113 around add_by_key => sub {
 114     my $orig = shift;
 115     my $self = shift;
 116     my @members =
 117         $self->_member_constructor(bugs => [@_],
 118                                   );
 119     return $self->$orig(@members);
 120 };
 121
 122 sub member_key {
 123     return $_[1]->bug;
 124 }
 125
 126 sub load_related_packages_and_versions {
 127     my $self = shift;
 128     my @related_packages_and_versions =
 129         $self->map(sub {$_->related_packages_and_versions});
 130     $self->package_collection->
 131         add_packages_and_versions(@related_packages_and_versions);
 132 }
 133
 134 __PACKAGE__->meta->make_immutable;
 135
 136 1;
 137
 138 __END__
 139 # Local Variables:
 140 # indent-tabs-mode: nil
 141 # cperl-indent-level: 4
 142 # End: