AnyMQ
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
require Cwd;
my $dir = Cwd::getcwd();
chdir $args{local_dir} or return if exists $args{local_dir};
if (eval { require LWP::Simple; 1 }) {
LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
# use Net::FTP to get past firewall
my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
$ftp->login("anonymous", 'anonymous@example.com');
$ftp->cwd($path);
$ftp->binary;
$ftp->get($file) or (warn("$!\n"), return);
$ftp->quit;
} }
elsif (my $ftp = $self->can_run('ftp')) { eval {
# no Net::FTP, fallback to ftp.exe
require FileHandle;
my $fh = FileHandle->new;
lib/AnyMQ/Queue.pm view on Meta::CPAN
This method returns all messages since the last poll to C<$code_ref>.
It blocks for C<$timeout> seconds if there's currently no messages
available.
=head2 destroyed(BOOL)
Marking the current queue as destroyed or not.
=head2 timeout($seconds)
Timeout value for this queue. Default is 55.
=head2 on_error(sub { my ($queue, $error, @msg) = @_; ... })
Sets the error handler invoked when C<poll> or C<poll_once> callbacks
fail. By default the queue is marked as destroyed. If you register
this error handler, you should call C<< $queue->destroyed(1) >> should you
wish to mark the queue as destroyed and reclaim resources.
Note that for queues that are currently C<poll>'ed, you may unset the
C<persistent> attribute to avoid the queue from being destroyed, and
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.429 second using v1.00-cache-2.02-grep-82fe00e-cpan-d29e8ade9f55 )