blob: ef029e91c752a03cd0007176222a3a01735914cc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# $NetBSD: Change.pm,v 1.2 2015/10/11 21:06:20 rillig Exp $
#
# A change entry from doc/CHANGES-*
#
package PkgLint::Change;
use strict;
sub new($$$$$$) {
my ($class, $line, $action, $pkgpath, $version, $author, $date) = @_;
my $self = [ $line, $action, $pkgpath, $version, $author, $date ];
bless($self, $class);
return $self;
}
sub line($) { return shift()->[0]; }
sub action($) { return shift()->[1]; }
sub pkgpath($) { return shift()->[2]; }
sub version($) { return shift()->[3]; }
sub author($) { return shift()->[4]; }
sub date($) { return shift()->[5]; }
|