view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use utf8;

use Test::More tests => 3;

use ok 'AnyEvent::Kanye';

my $cv = AnyEvent::Kanye->condvar;

ok( $cv, "got a condvar" );

$cv->send("hello");

like( $cv->recv, qr/Beyoncé/, "interrupted" );