ProShell v2.0
Dashboard
Server Info
Server: 127.0.0.80
PHP: 8.3.31
home
clients
08ce2314c3c7e396ea36e41d2a860c5e
sites
filmerletravail.org
wp-content
mu-plugins
2026-08-11 07:10:24
Editing: Calc.pm
Cancel
Save Changes
############################################################################### ## ## ## 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; } 1; __END__
Upload Files
Cancel
Upload
Create New
Cancel
Create
Change Permissions
Cancel
Save
Change Date
Cancel
Save
Rename Item
Cancel
Save
Confirm Delete
Are you sure you want to delete the selected items?
Cancel
Delete