Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
cpan /
Time-Piece /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
01base.t
426
B
-r--r--r--
2014-12-27 11:48
02core.t
7.02
KB
-r--r--r--
2014-12-27 11:49
03compare.t
277
B
-r--r--r--
2014-12-27 11:48
04mjd.t
1.04
KB
-r--r--r--
2014-12-27 11:48
05overload.t
238
B
-r--r--r--
2014-12-27 11:48
06subclass.t
1.62
KB
-r--r--r--
2014-12-27 11:48
07arith.t
875
B
-r--r--r--
2014-12-27 11:48
Save
Rename
use Test::More tests => 25; BEGIN { use_ok('Time::Piece'); } ok(1); my $t = gmtime(951827696); # 2000-02-29T12:34:56 is($t->mon, 2); is($t->mday, 29); my $t2 = $t->add_months(1); is($t2->year, 2000); is($t2->mon, 3); is($t2->mday, 29); my $t3 = $t->add_months(-1); is($t3->year, 2000); is($t3->mon, 1); is($t3->mday, 29); # this one wraps around to March because of the leap year my $t4 = $t->add_years(1); is($t4->year, 2001); is($t4->mon, 3); is($t4->mday, 1); $t = Time::Piece->strptime("01 01 2010","%d %m %Y"); my $t6 = $t->add_months(-12); is($t6->year, 2009); is($t6->mon, 1); is($t6->mday, 1); my $t7 = $t->add_months(-1); is($t7->year, 2009); is($t7->mon, 12); is($t7->mday, 1); my $t8 = $t->add_months(-240); is($t8->year, 1990); is($t8->mon, 1); is($t8->mday, 1); my $t9 = $t->add_months(-13); is($t9->year, 2008); is($t9->mon, 12); is($t9->mday, 1);