Gecko [ www.vortexaion.com ]

Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.204
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
Format	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Locale	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
TimeZone	[ DIR ]	drwxrwxrwx	2024-07-26 17:39
Conflicts.pm	907 B	-rw-rw-rw-	2020-12-05 00:20
Duration.pm	19.32 KB	-rw-rw-rw-	2020-12-05 00:20
Helpers.pm	448 B	-rw-rw-rw-	2020-12-05 00:20
Infinite.pm	5.96 KB	-rw-rw-rw-	2020-12-05 00:20
LeapSecond.pm	4.7 KB	-rw-rw-rw-	2020-12-05 00:20
Locale.pm	16.89 KB	-rw-rw-rw-	2020-12-22 19:37
PP.pm	5.42 KB	-rw-rw-rw-	2020-12-05 00:20
PPExtra.pm	1.69 KB	-rw-rw-rw-	2020-12-05 00:20
TimeZone.pm	29.26 KB	-rw-rw-rw-	2020-12-23 06:00
Types.pm	3.66 KB	-rw-rw-rw-	2020-12-05 00:20

Rename

package DateTime::PPExtra;

use strict;
use warnings;

our $VERSION = '1.54';

use DateTime::LeapSecond;

## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
sub _normalize_tai_seconds {
    return
        if
        grep { $_ == DateTime::INFINITY() || $_ == DateTime::NEG_INFINITY() }
        @_[ 1, 2 ];

# This must be after checking for infinity, because it breaks in
    # presence of use integer !
    use integer;

my $adj;

if ( $_[2] < 0 ) {
        $adj = ( $_[2] - 86399 ) / 86400;
    }
    else {
        $adj = $_[2] / 86400;
    }

$_[1] += $adj;

$_[2] -= $adj * 86400;
}

sub _normalize_leap_seconds {

# args: 0 => days, 1 => seconds
    my $delta_days;

use integer;

# rough adjust - can adjust many days
    if ( $_[2] < 0 ) {
        $delta_days = ( $_[2] - 86399 ) / 86400;
    }
    else {
        $delta_days = $_[2] / 86400;
    }

my $new_day = $_[1] + $delta_days;
    my $delta_seconds
        = ( 86400 * $delta_days )
        + DateTime::LeapSecond::leap_seconds($new_day)
        - DateTime::LeapSecond::leap_seconds( $_[1] );

$_[2] -= $delta_seconds;
    $_[1] = $new_day;

# fine adjust - up to 1 day
    my $day_length = DateTime::LeapSecond::day_length($new_day);
    if ( $_[2] >= $day_length ) {
        $_[2] -= $day_length;
        $_[1]++;
    }
    elsif ( $_[2] < 0 ) {
        $day_length = DateTime::LeapSecond::day_length( $new_day - 1 );
        $_[2] += $day_length;
        $_[1]--;
    }
}

my @subs = qw(
    _normalize_tai_seconds
    _normalize_leap_seconds
);

for my $sub (@subs) {
    ## no critic (TestingAndDebugging::ProhibitNoStrict)
    no strict 'refs';
    *{ 'DateTime::' . $sub } = __PACKAGE__->can($sub);
}