lib/Debbugs/Version/Binary.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::Version::Binary;
   8
   9 =head1 NAME
  10
  11 Debbugs::Version::Binary -- OO interface to Version
  12
  13 =head1 SYNOPSIS
  14
  15    use Debbugs::Version::Binary;
  16    Debbugs::Version::Binary->new(schema => $s,binaries => [qw(foo)],sources => [qw(bar)]);
  17
  18 =head1 DESCRIPTION
  19
  20
  21
  22 =cut
  23
  24 use Mouse;
  25 use v5.10;
  26 use strictures 2;
  27 use namespace::autoclean;
  28
  29 use Debbugs::Config qw(:config);
  30 use Debbugs::Collection::Package;
  31 use Debbugs::OOTypes;
  32
  33 extends 'Debbugs::Version';
  34
  35 sub type {
  36     return 'binary';
  37 }
  38
  39 has source_version => (is => 'ro',
  40                        isa => 'Debbugs::Version::Source',
  41                        lazy => 1,
  42                        builder => '_build_source_version',
  43                       );
  44
  45 sub _build_source_version {
  46     my $self = shift;
  47     my $source_version =
  48         $self->pkg->
  49         get_source_version(version => $self->version,
  50                            $self->_count_archs?(archs => [$self->_archs]):(),
  51                           );
  52     if (defined $source_version) {
  53         return $source_version;
  54     }
  55     return Debbugs::Version::Source->new(version => $self->version,
  56                                          package => '(unknown)',
  57                                          valid => 0,
  58                                          package_collection => $self->package_collection,
  59                                         );
  60 }
  61
  62 sub src_pkg_ver {
  63     my $self = shift;
  64     return $self->source->src_pkg_ver;
  65 }
  66
  67 has archs => (is => 'bare',
  68               isa => 'ArrayRef[Str]',
  69               builder => '_build_archs',
  70               traits => ['Array'],
  71               handles => {'_archs' => 'elements',
  72                           '_count_archs' => 'count',
  73                          },
  74              );
  75
  76 sub _build_archs {
  77     my $self = shift;
  78     # this is wrong, but we'll start like this for now
  79     return ['any'];
  80 }
  81
  82 sub arch {
  83     my $self = shift;
  84     return $self->_count_archs > 0?join(',',$self->_archs):'any';
  85 }
  86
  87
  88 __PACKAGE__->meta->make_immutable;
  89 no Mouse;
  90 1;
  91
  92
  93 __END__
  94 # Local Variables:
  95 # indent-tabs-mode: nil
  96 # cperl-indent-level: 4
  97 # End: