| line |
true |
false |
branch |
|
24
|
1 |
26 |
unless ($args) |
|
28
|
3 |
23 |
unless ($$args{'URL'} and $$args{'URL'} =~ m[^http://]i) |
|
32
|
3 |
20 |
unless ($$args{'Tier'} and $$args{'Tier'}->isa('Net::BitTorrent::Torrent::Tracker')) |
|
63
|
15 |
1 |
if (defined $event) |
|
64
|
1 |
14 |
unless ($event =~ /^(?:st(?:art|opp)|complet)ed$/) |
|
72
|
6 |
9 |
$port ? : |
|
74
|
5 |
10 |
if (not $host =~ /^(?:(?:(?:25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})[.]?){4})$/) { } |
|
76
|
0 |
5 |
unless my($name, $aliases, $addrtype, $length, @addrs) = gethostbyname $host |
|
82
|
0 |
15 |
unless socket $_socket{refaddr $self}, 2, 1, getprotobyname 'tcp' |
|
85
|
0 |
15 |
$^O eq 'MSWin32' ? : |
|
|
0 |
15 |
unless ($^O eq 'MSWin32' ? ioctl($_socket{refaddr $self}, 2147772030, "\cA\000\000\000") : fcntl($_socket{refaddr $self}, 4, 2048)) |
|
102
|
0 |
15 |
unless ($_inet_aton) |
|
112
|
0 |
15 |
unless ($pack_sockaddr_in) |
|
122
|
14 |
1 |
defined $event ? : |
|
132
|
14 |
1 |
$_event{refaddr $self} ? : |
|
164
|
0 |
15 |
$path =~ /\?/ ? : |
|
186
|
0 |
12 |
unless defined $_tier{refaddr $self}->_client |
|
187
|
0 |
12 |
if ($error) { } |
|
|
6 |
6 |
elsif ($write) { } |
|
|
6 |
0 |
elsif ($read) { } |
|
206
|
0 |
6 |
unless ($actual_write) |
|
231
|
6 |
0 |
unless (length $_data_out{refaddr $self}) |
|
240
|
0 |
6 |
if (not $actual_read) { } |
|
267
|
6 |
0 |
if ($data) |
|
268
|
0 |
6 |
if (defined $$data{'failure reason'}) { } |
|
295
|
6 |
0 |
defined $$data{'interval'} ? : |
|
326
|
1 |
0 |
!$advanced ? : |
|
332
|
1 |
0 |
defined wantarray ? : |