/usr/share/perl5/DateTime/TimeZone/OlsonDB/Change.pm is in libdatetime-timezone-perl 1:2.18-1+2018d.
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 | package DateTime::TimeZone::OlsonDB::Change;
use strict;
use warnings;
use namespace::autoclean;
our $VERSION = '2.18';
sub new {
my $class = shift;
my %p = @_;
# These are almost always mutually exclusive, except when adding
# an observance change and the last rule has no offset, but the
# new observance has an anonymous rule. In that case, prefer the
# offset from std defined in the observance to that in the
# previous rule (what a mess!).
if ( $p{type} eq 'observance' ) {
$p{offset_from_std} = $p{rule}->offset_from_std if defined $p{rule};
$p{offset_from_std} = $p{observance}->offset_from_std
if $p{observance}->offset_from_std;
$p{offset_from_std} ||= 0;
}
else {
$p{offset_from_std} = $p{observance}->offset_from_std;
$p{offset_from_std} = $p{rule}->offset_from_std if defined $p{rule};
}
$p{offset_from_utc} = $p{observance}->offset_from_utc;
$p{is_dst} = 0;
$p{is_dst} = 1 if $p{rule} && $p{rule}->offset_from_std;
$p{is_dst} = 1 if $p{observance}->offset_from_std;
if ( $p{short_name} =~ m{([\-\+\w]+)/([\-\+\w]+)} ) {
$p{short_name} = $p{is_dst} ? $2 : $1;
}
return bless \%p, $class;
}
sub utc_start_datetime { $_[0]->{utc_start_datetime} }
sub local_start_datetime { $_[0]->{local_start_datetime} }
sub short_name { $_[0]->{short_name} }
sub is_dst { $_[0]->{is_dst} }
sub observance { $_[0]->{observance} }
sub rule { $_[0]->{rule} }
sub offset_from_utc { $_[0]->{offset_from_utc} }
sub offset_from_std { $_[0]->{offset_from_std} }
sub total_offset { $_[0]->offset_from_utc + $_[0]->offset_from_std }
sub two_changes_as_span {
my ( $c1, $c2 ) = @_;
my ( $utc_start, $local_start );
if ( defined $c1->utc_start_datetime ) {
$utc_start = $c1->utc_start_datetime->utc_rd_as_seconds;
$local_start = $c1->local_start_datetime->utc_rd_as_seconds;
}
else {
$utc_start = $local_start = '-inf';
}
my $utc_end = $c2->utc_start_datetime->utc_rd_as_seconds;
my $local_end = $utc_end + $c1->total_offset;
return {
utc_start => $utc_start,
utc_end => $utc_end,
local_start => $local_start,
local_end => $local_end,
short_name => $c1->short_name,
offset => $c1->total_offset,
is_dst => $c1->is_dst,
};
}
## no critic (Subroutines::ProhibitUnusedPrivateSubroutines, InputOutput::RequireCheckedSyscalls)
sub _debug_output {
my $self = shift;
my $obs = $self->observance;
if ( $self->utc_start_datetime ) {
print ' UTC: ', $self->utc_start_datetime->datetime, "\n";
print ' Local: ', $self->local_start_datetime->datetime, "\n";
}
else {
print " First change (starts at -inf)\n";
}
print ' Short name: ', $self->short_name, "\n";
print ' UTC offset: ', $obs->offset_from_utc, "\n";
if ( $obs->offset_from_std || $self->rule ) {
if ( $obs->offset_from_std ) {
print ' Std offset: ', $obs->offset_from_std, "\n";
}
if ( $self->rule ) {
print ' Std offset: ', $self->rule->offset_from_std, ' - ',
$self->rule->name, " rule\n";
}
}
else {
print " Std offset: 0 - no rule\n";
}
print "\n";
}
## use critic
1;
|