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                                   correspondent_collection =>
  90                                   $self->correspondent_collection->universe,
  91                                   @{$args{constructor_args}//[]},
  92                                  );
  93         }
  94     } else {
  95         for my $bug (make_list($args{bugs})) {
  96             push @return,
  97                 Debbugs::Bug->new(bug => $bug,
  98                                   package_collection =>
  99                                   $self->package_collection->universe,
 100                                   correspondent_collection =>
 101                                   $self->correspondent_collection->universe,
 102                                   @{$args{constructor_args}//[]},
 103                                  );
 104         }
 105     }
 106     return @return;
 107 }
 108
 109 around add_by_key => sub {
 110     my $orig = shift;
 111     my $self = shift;
 112     my @members =
 113         $self->_member_constructor(bugs => [@_],
 114                                   );
 115     return $self->$orig(@members);
 116 };
 117
 118 sub member_key {
 119     return $_[1]->bug;
 120 }
 121
 122 sub load_related_packages_and_versions {
 123     my $self = shift;
 124     my @related_packages_and_versions =
 125         $self->map(sub {$_->related_packages_and_versions});
 126     $self->package_collection->
 127         add_packages_and_versions(@related_packages_and_versions);
 128 }
 129
 130 __PACKAGE__->meta->make_immutable;
 131
 132 1;
 133
 134 __END__
 135 # Local Variables:
 136 # indent-tabs-mode: nil
 137 # cperl-indent-level: 4
 138 # End: