#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	return -1 unless $this->fieldfile("realtty");
	my $atime = (stat($this->fieldfile("tty")))[8];
	return -1 unless defined $atime;
	return time - $atime;
}
