Debbugs/Version/Source.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::Source;
   8
   9 =head1 NAME
  10
  11 Debbugs::Version::Source -- OO interface to Version
  12
  13 =head1 SYNOPSIS
  14
  15    use Debbugs::Version::Source;
  16    Debbugs::Version::Source->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 'source';
  37 }
  38
  39 sub source_version {
  40     return $_[0];
  41 }
  42
  43 sub src_pkg_ver {
  44     my $self = shift;
  45     return $self->source->name.'/'.$self->version;
  46 }
  47
  48 has maintainer => (is => 'ro',
  49                    isa => 'Str',
  50                   );
  51
  52 sub source {
  53     my $self = shift;
  54     return $self->package;
  55 }
  56
  57 sub arch {
  58     return 'source';
  59 }
  60
  61
  62 __PACKAGE__->meta->make_immutable;
  63 no Mouse;
  64 1;
  65
  66
  67 __END__
  68 # Local Variables:
  69 # indent-tabs-mode: nil
  70 # cperl-indent-level: 4
  71 # End: