File Coverage

blib/lib/Wily/Connect.pm

Criterion	Covered	Total	%
statement	21	38	55.2
branch	0	10	0.0
condition	0	5	0.0
subroutine	7	9	77.7
pod	0	2	0.0
total	28	64	43.7

package Wily::Connect;

use v5.8;
use strict;
use warnings;
use Carp;

use File::Temp qw/ :POSIX /;
use IO::Socket;
use Fcntl;

our $VERSION = '0.01';

sub connect {
	local *FILE;
	my $tmpfile = tmpnam();
	my $sock = IO::Socket::UNIX->new(Local=>$tmpfile,Type=>SOCK_STREAM, Listen=>1);

	sysopen FILE, wily_fifo_name(), O_WRONLY
		or croak "Unable to open wily fifo: $!";
	print FILE $tmpfile;
	close FILE or croak "Error closing wily fifo: $!";

	my $s = $sock->accept();
	$sock->close();

	unlink $tmpfile or carp "unlink of '$tmpfile' failed: $!";

	return $s;
}

sub wily_fifo_name {
	if (exists $ENV{WILYFIFO}) {
		return $ENV{WILYFIFO};
	}
	if (not exists $ENV{DISPLAY}) {
		croak 'No $DISPLAY set';
	}
	my $tmp = $ENV{TMPDIR} || '/tmp';
	my $login = getlogin || getpwuid($<);
	return "$tmp/wily$login$ENV{DISPLAY}";
}



1;
__END__