view release on metacpan or  search on metacpan

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

package AnyEvent::Sway;
# vim:ts=4:sw=4:expandtab

use strict;
use warnings;
use JSON::XS;
use AnyEvent::Handle;
use AnyEvent::Socket;
use AnyEvent;
use Encode;
use Scalar::Util qw(tainted);
use Carp;

t/01-workspaces.t  view on Meta::CPAN

#!perl -T
# vim:ts=4:sw=4:expandtab

use Test::More tests => 3;
use AnyEvent::Sway;
use AnyEvent;

my $sway = sway();
my $cv = AnyEvent->condvar;

# Try to connect to sway
$sway->connect->cb(sub { my ($v) = @_; $cv->send($v->recv) });

t/02-sugar.t  view on Meta::CPAN

#!perl -T
# vim:ts=4:sw=4:expandtab

use Test::More tests => 3;
use AnyEvent::Sway;
use AnyEvent;

my $sway = sway();
my $cv = AnyEvent->condvar;

# Try to connect to Sway
$sway->connect->cb(sub { my ($v) = @_; $cv->send($v->recv) });