AnyEvent-Finger
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
example/client_simple.pl view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use AnyEvent;
use AnyEvent::Finger qw( finger_client );
my $done = AnyEvent->condvar;
finger_client 'localhost', shift @ARGV, sub {
my($lines) = @_;
print "[response]\n";
print join "\n", @$lines;
print "\n";
$done->send;
}, on_error => sub {
print STDERR shift;
print STDERR "\n";
$done->send;
};
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.832 second using v1.00-cache-2.02-grep-82fe00e-cpan-da92000dfeb )