UnixTime now returns Coordinated Universal Time
Updated tests. Added time zone as hour offset from UTC to avoid confusion between acronyms.master
parent
701446ed6f
commit
c9ef973474
1
dist.ini
1
dist.ini
|
@ -17,6 +17,7 @@ File::ShareDir::ProjectDistDir = 0.2.0
|
|||
HTML::Entities = 3.69
|
||||
Text::Unidecode = 0.04
|
||||
Date::Calc = 6.3
|
||||
DateTime = 0.74
|
||||
Lingua::EN::Numericalize = 1.52
|
||||
Locale::SubCountry = 1.50
|
||||
; causing problems because not pp: HTML::Barcode::QRCode = 0.09
|
||||
|
|
|
@ -1,6 +1,7 @@
|
|||
package DDG::Goodie::UnixTime;
|
||||
|
||||
use DDG::Goodie;
|
||||
use DateTime;
|
||||
|
||||
zci answer_type => "time_conversion";
|
||||
zci is_cached => 1;
|
||||
|
@ -8,13 +9,22 @@ triggers startend => "unixtime", "time", "timestamp", "datetime", "epoch";
|
|||
|
||||
handle remainder => sub {
|
||||
|
||||
my $time_input = int(length ($_) >= 13 ? ($_ / 1000) : ($_ + 0));
|
||||
my $time_input = 0;
|
||||
eval {
|
||||
$time_input = int(length ($_) >= 13 ? ($_ / 1000) : ($_ + 0));
|
||||
};
|
||||
if ($@) { return; }
|
||||
|
||||
if ($time_input >= 0){
|
||||
|
||||
my $my_time = localtime($time_input);
|
||||
|
||||
return "Unix Time Conversion: " . $my_time if $my_time;
|
||||
my $my_time = DateTime->from_epoch(
|
||||
epoch => $time_input,
|
||||
time_zone => "UTC"
|
||||
);
|
||||
|
||||
my $time_utc = $my_time->strftime("%a %b %m %T %Y %z");
|
||||
|
||||
return "Unix Time Conversion: " . $time_utc if $time_utc;
|
||||
|
||||
}
|
||||
|
||||
|
|
|
@ -12,11 +12,8 @@ ddg_goodie_test(
|
|||
[qw(
|
||||
DDG::Goodie::UnixTime
|
||||
)],
|
||||
'time 0' => test_zci('Unix Time Conversion: Wed Dec 31 19:00:00 1969'),
|
||||
'time 1335233773453' => test_zci('Unix Time Conversion: Mon Apr 23 22:16:13 2012'),
|
||||
'time 1335233773' => test_zci('Unix Time Conversion: Mon Apr 23 22:16:13 2012'),
|
||||
'time 5325423' => test_zci('Unix Time Conversion: Tue Mar 3 10:17:03 1970'),
|
||||
'time 53492399294' => test_zci('Unix Time Conversion: Sat Feb 7 18:48:14 3665')
|
||||
'time 0' => test_zci('Unix Time Conversion: Thu Jan 01 00:00:00 1970 +0000'),
|
||||
'time 0000000000000' => test_zci('Unix Time Conversion: Thu Jan 01 00:00:00 1970 +0000')
|
||||
);
|
||||
|
||||
done_testing;
|
||||
|
|
Loading…
Reference in New Issue