view release on metacpan or  search on metacpan

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

	my ( $class, @args ) = @_;
	bless( AnyEvent->condvar(@args), $class), 
}

sub send {
	my ( $self, $thing ) = @_;
	my $name = ref($thing) || 'value';

	$self->SUPER::send(
		"This $name is pretty good, and I'mma let "    .
		"you finish, but Beyoncé had one of the best " .
		PL($name) . " of all time!"
	);
}

__PACKAGE__

__END__

=pod

=head1 NAME

AnyEvent::Kanye - The best kind of interrupt

=head1 SYNOPSIS

	my $cond = AnyEvent::Kanye->cond_var;

	$cond->cb(sub {
		warn = $_[0]->recv;
	});

	# later: