/usr/lib/perl5/Class/Date/Const.pm is in libclass-date-perl 1.1.10-1build3.
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 | package Class::Date::Const;
use strict;
use vars qw(@EXPORT @ISA @ERROR_MESSAGES %EXPORT_TAGS);
use Exporter;
my %FIELDS = (
# Class::Date fields
c_year => 0,
c_mon => 1,
c_day => 2,
c_hour => 3,
c_min => 4,
c_sec => 5,
c_wday => 6,
c_yday => 7,
c_isdst => 8,
c_epoch => 9,
c_tz => 10,
c_error => 11,
c_errmsg => 12,
# Class::Date::Rel fields
cs_mon => 0,
cs_sec => 1,
# Class::Date::Invalid fields
ci_error => 0,
ci_errmsg => 1,
);
eval " sub $_ () { ".$FIELDS{$_}."}" foreach keys %FIELDS;
@ISA = qw(Exporter);
my @ERRORS = (
E_OK => '',
E_INVALID => 'Invalid date or time',
E_RANGE => 'Range check on date or time failed',
E_UNPARSABLE => 'Unparsable date or time: %s',
E_UNDEFINED => 'Undefined date object',
);
my @ERR;
# predeclaring error constants
my $c = 0;
while (@ERRORS) {
my $errorcode = shift @ERRORS;
my $errorname = shift @ERRORS;
eval "sub $errorcode () { $c }";
$ERROR_MESSAGES[$c] = $errorname;
push @{$EXPORT_TAGS{errors}}, $errorcode;
$c++;
}
@EXPORT = (keys %FIELDS, qw(@ERROR_MESSAGES), @{$EXPORT_TAGS{errors}});
1;
|