view release on metacpan or  search on metacpan

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

package AnyEvent::Kanye;

use strict;
use warnings;

use utf8;

use AnyEvent ();
use Lingua::EN::Inflect qw(PL);

BEGIN { our @ISA = "AnyEvent::CondVar" }

our $VERSION = "0.02";

sub condvar {
	my ( $class, @args ) = @_;

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");