blob: 8feb414951f9620da3cc1df08445679382f6e350 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
package PkgLint::CVS_Entry;
#==========================================================================
# A CVS_Entry represents one line from a CVS/Entries file.
#==========================================================================
use enum qw(FNAME REVISION MTIME TAG);
sub new($$$$$) {
my ($class, $fname, $revision, $date, $tag) = @_;
my $self = [ $fname, $revision, $date, $tag ];
bless($self, $class);
return $self;
}
sub fname($) { return shift()->[FNAME]; }
sub revision($) { return shift()->[REVISION]; }
sub mtime($) { return shift()->[MTIME]; }
sub tag($) { return shift()->[TAG]; }
#== End of PkgLint::CVS_Entry =============================================
1;
|