/usr/share/perl5/Debian/WNPP/Bug.pm is in libdebian-source-perl 0.94.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 | package Debian::WNPP::Bug;
use strict;
use warnings;
our $VERSION = '0.94';
=head1 NAME
Debian::WNPP::Bug - handy representation of Debian WNPP bug reports
=head1 SYNOPSIS
my $b = Debian::WNPP::Bug->new(
{ number => 1234,
title => 'RFP: nice-package -- do nice things easier',
type => 'rfp',
package => 'nice-package',
short_description => 'do nice things together',
submitter => "Joe Developer <joe@developer.local>"
}
);
print "$b"; # 1234
=cut
use base qw(Class::Accessor);
__PACKAGE__->mk_accessors(
qw(
number title type package short_description submitter
)
);
=head1 CONSTRUCTOR
=over
=item new
Constructs new instance of the class. Initial values are to be given as a hash
reference.
=back
=head1 FIELDS
=over
=item number
The unique ID of the big in the BTS.
=item title
The title of the bug. Usually something like
RFP: nice-package -- do nice things easier
=item type
The type of the WNPP bug. Either of:
=over
=item RFP
request for package
=item ITP
intent to package
=item O
orphaned package
=item RFH
request for help
=item RFA
request for adoption
=item ITA
intent to adopt
=back
=item package
Package name
=item short_description
The short description of the package
=item submitter
The bug submitter in the form C<< Full Name <email@address> >>
=back
=head1 OVERLOADS
=over
=item ""
C<Debian::WNPPBug> object instances stringify via the method L<|as_string>. The
default C<as_string> method returns the bug number.
=cut
use overload '""' => \&as_string;
=back
=head1 METHODS
=over
=item type_and_number
Returns a string representing the bug type and number in the form I<TYPE>
#I<number>, e.g. C<ITP #1234>.
=cut
sub type_and_number {
my $self = shift;
return $self->type . ' #' . $self->number;
}
=item as_string
Used for the "" overload. Returns the bug number.
=cut
sub as_string {
my $self = shift;
return $self->number;
}
=back
=head1 AUTHOR
=over 4
=item Damyan Ivanov <dmn@debian.org>
=back
=head1 COPYRIGHT & LICENSE
=over 4
=item Copyright (C) 2010 Damyan Ivanov <dmn@debian.org>
=back
This program is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License version 2 as published by the Free
Software Foundation.
This program is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with
this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
Street, Fifth Floor, Boston, MA 02110-1301 USA.
=cut
1;
|