AnyEvent-BitTorrent

 view release on metacpan or  search on metacpan

eg/simple_client.pl  view on Meta::CPAN

#!perl
use lib '../lib';
use AnyEvent::BitTorrent;
use Net::BitTorrent::Protocol qw[:all];
$|++;

#
my $client = AnyEvent::BitTorrent->new(
                                  path         => 'a/legal.torrent',
                                  on_hash_pass => sub { warn 'PASS: ' . pop },
                                  on_hash_fail => sub { warn 'FAIL: ' . pop }
);

t/000_tests/002_basic.t  view on Meta::CPAN

#!perl
use AnyEvent;
use lib '../../lib';
use AnyEvent::BitTorrent;
use Net::BitTorrent::Protocol qw[:all];
use Test::More;
use File::Temp;
$|++;
my $torrent = q[t/900_data/kubuntu-active-13.04-desktop-i386.iso.torrent];
my $basedir = File::Temp::tempdir('AB_XXXX', TMPDIR => 1);
chdir '../..' if !-f $torrent;
my $client;
#

t/000_tests/004_global.t  view on Meta::CPAN

#!perl
use AnyEvent;
use lib '../../lib';
use AnyEvent::BitTorrent;
use Net::BitTorrent::Protocol qw[:all];
use Test::More;
use File::Temp;
$|++;
my $torrent = q[t/900_data/kubuntu-active-13.04-desktop-i386.iso.torrent];
my $basedir = File::Temp::tempdir('AB_XXXX', TMPDIR => 1);
chdir '../..' if !-f $torrent;
my $cv = AE::cv;
my $client;

t/000_tests/005_local.t  view on Meta::CPAN

#!perl
use strict;
use warnings;
use AnyEvent;
use lib '../../lib';
use AnyEvent::BitTorrent;
#use Net::BitTorrent::Protocol qw[:all];
use Test::More;
use File::Temp;
$|++;
my $torrent = q[t/900_data/kubuntu-active-13.04-desktop-i386.iso.torrent];
chdir '../..' if !-f $torrent;
require t::800_utils::Tracker::HTTP;
my $cv = AE::cv;
my $to = AE::timer(90, 0, sub { diag 'Timeout'; ok 'Timeout'; $cv->send });