view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

BEGIN { $| = 1; print "1..4\n"; }
END {print "not ok 1\n" unless $loaded;}
use User::Utmp qw(:constants);
use POSIX qw(ttyname);
$loaded = 1;
print "ok 1\n";

######################### End of black magic.

$user = getlogin || getpwuid($<) || $ENV{USER};
$term = ttyname(undef);
$term =~ s|^/dev/||;

###############################################################################

$test = 2;

unless (UTMP_FILE && -z UTMP_FILE)
{
   @utmp = User::Utmp::getut();