view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

use strict;
use warnings;

use 5.006;
use ExtUtils::MakeMaker;

if ( $^O eq 'MSWin32' ) {
    die "AnyEvent::Sway cannot be used on win32 (unix sockets are missing)";
}

my %meta = (
    name        => 'AnyEvent-Sway',
    author      => 'John Mertz, C<< <git at john.me.tz> >>',
    license     => ['gpl'],
    'meta-spec' => { version => 2 },
    resources   => {
        repository => {
            url => 'git://git.john.me.tz/jpm/AnyEvent-Sway',

lib/AnyEvent/Sway.pm  view on Meta::CPAN

    if ($sway->connect->recv) {
        say "Connected to Sway";
    }

=cut
sub connect
{
    my ($self) = @_;
    my $cv = AnyEvent->condvar;

    tcp_connect "unix/", $self->{path}, sub {
        my ($fh) = @_;

        return $cv->send(0) unless $fh;

        $self->{ipchdl} = AnyEvent::Handle->new(
            fh => $fh,
            on_read => sub { my ($hdl) = @_; $self->_data_available($hdl) },
            on_error => sub {
                my ($hdl, $fatal, $msg) = @_;
                delete $self->{ipchdl};