UnixTime.pm

package DDG::Goodie::UnixTime;

use DDG::Goodie;
use DateTime;

triggers startend => "unixtime", "time", "timestamp", "datetime", "epoch", "unix time", "unix epoch";

zci answer_type => "time_conversion";
zci is_cached => 1;

handle remainder => sub {

    my $time_input = 0;
    eval {
	    $time_input = int(length ($_) >= 13 ? ($_ / 1000) : ($_ + 0));
    };
    if ($@) { return; }

	if ($time_input >= 0){

		my $my_time = DateTime->from_epoch(
            epoch => $time_input,
            time_zone => "UTC"
          );

        my $time_utc = $my_time->strftime("%a %b %d %T %Y %z");

		return "Unix Time Conversion: " . $time_utc if $time_utc;
	
	}

    return;

};

1;