view release on metacpan or  search on metacpan

lib/Arc/Command/Uptime.pm  view on Meta::CPAN

package Arc::Command::Uptime;

use strict;
use warnings;
use Carp;
use Arc::Command;
use POSIX qw(setsid);

@Arc::Command::Uptime::ISA = qw(Arc::Command);

sub members 
{
	my $this = shift;
	return { %{$this->SUPER::members},
		# private:
		# protected:
	};
}

sub Execute
{
	my $this = shift;

	system("uptime");

	return 1;
}

return 1;