package TimeShell;

use lib '../lib';
use strict;
use base 'SSH::RPC::Shell';
use Time::HiRes;

sub run_time {
    my @time = localtime(time());
    return {
        status      => 200,
        response    => join(":", $time[2], $time[1], $time[0]),
        };
}

sub run_hiResTime {
    my ($seconds, $microseconds) = Time::HiRes::gettimeofday();
    my @time = localtime($seconds);
    return {
        status      => 200,
        response    => [ $time[2], $time[1], $time[0], $microseconds ],
        };
}

1;