Gecko [ actualbuzz.com ]

Linux sh52.ich-4.com 5.14.0-611.26.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Thu Jan 29 05:24:47 EST 2026 x86_64
LiteSpeed
Server IP : 198.143.147.58 & Your IP : 216.73.217.21
Domains : Cant Read [ /etc/named.conf ]
User : actualbuzz

Name	Size	Permission	Date
Calc	[ DIR ]	drwxr-xr-x	2023-09-15 14:55
Calendar	[ DIR ]	drwxr-xr-x	2023-09-15 14:55
Language	[ DIR ]	drwxr-xr-x	2023-09-15 14:55
Manip	[ DIR ]	drwxr-xr-x	2023-09-15 14:55
Calc.pm	2.08 KB	-rw-r--r--	2015-03-07 20:06
Calc.pod	106.86 KB	-rw-r--r--	2015-03-07 20:06
Calendar.pm	6.37 KB	-rw-r--r--	2015-03-07 20:06
Calendar.pod	20.43 KB	-rw-r--r--	2015-03-07 20:06
Format.pm	9.42 KB	-rw-r--r--	2009-12-12 12:30
Language.pm	2.61 KB	-rw-r--r--	2020-05-19 17:30
Manip.pm	1.22 KB	-rw-r--r--	2021-03-01 20:03
Manip.pod	7.59 KB	-rw-r--r--	2021-03-01 20:03
Parse.pm	8.91 KB	-rw-r--r--	2020-05-19 17:37

Rename

###############################################################################
##                                                                           ##
##    Copyright (c) 1995 - 2015 by Steffen Beyer.                            ##
##    All rights reserved.                                                   ##
##                                                                           ##
##    This package is free software; you can redistribute it                 ##
##    and/or modify it under the same terms as Perl itself.                  ##
##                                                                           ##
###############################################################################

package Date::Calc;

use strict;
use vars qw($XS_OK $XS_DISABLE @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);

BEGIN # Re-export imports from Date::Calc::XS or Date::Calc::PP:
{
    require Exporter;
    @ISA = qw(Exporter);
    $XS_OK = 0;
    unless ($XS_DISABLE and $XS_DISABLE) # prevent warning "used only once"
    {
        eval
        {
            require Date::Calc::XS;
            @EXPORT      = (@Date::Calc::XS::EXPORT);
            @EXPORT_OK   = (@Date::Calc::XS::EXPORT_OK);
            %EXPORT_TAGS = (all => [@EXPORT_OK]);
            Date::Calc::XS->import(@EXPORT,@EXPORT_OK);
        };
        if ($@) { die $@ unless ($@ =~ /^Can't locate .*? at /); }
        else    { $XS_OK = 1; }
    }
    unless ($XS_OK)
    {
        require Date::Calc::PP;
        @EXPORT      = (@Date::Calc::PP::EXPORT);
        @EXPORT_OK   = (@Date::Calc::PP::EXPORT_OK);
        %EXPORT_TAGS = (all => [@EXPORT_OK]);
        Date::Calc::PP->import(@EXPORT,@EXPORT_OK);
    }
}

##################################################
##                                              ##
##  "Version()" is available but not exported   ##
##  in order to avoid possible name clashes.    ##
##  Call with "Date::Calc::Version()" instead!  ##
##                                              ##
##################################################

$VERSION     = '6.4';

sub Version { return $VERSION; }

__END__