| line |
true |
false |
branch |
|
85
|
0 |
1 |
if @_ % 2 |
|
90
|
1 |
0 |
unless defined $timeout and $timeout >= 0 |
|
93
|
1 |
0 |
unless defined $retry and $retry >= 0 |
|
96
|
0 |
1 |
if defined $server |
|
99
|
1 |
0 |
unless defined $port |
|
100
|
0 |
1 |
if defined $port |
|
102
|
0 |
1 |
if scalar keys %params |
|
110
|
1 |
1 |
if (@_) |
|
116
|
1 |
1 |
if (@_) |
|
129
|
0 |
1 |
unless my $sock = 'IO::Socket::INET'->new('PeerAddr', $self->server, 'PeerPort', $self->port, 'Proto', 'udp', 'Type', 2, 'ReuseAddr', 1, 'Blocking', 1) |
|
145
|
0 |
1 |
if ($@) |
|
150
|
1 |
0 |
if ($data eq '') { } |
|
180
|
0 |
0 |
if $str eq '' or not $str =~ /^\d+\,\d+$/ |
|
213
|
0 |
0 |
if $str eq '' or not $str =~ /^\d+$/ |
|
216
|
0 |
0 |
if ($$flags{'GameType'} == 1) { } |
|
|
0 |
0 |
elsif ($$flags{'GameType'} == 2) { } |
|
|
0 |
0 |
elsif ($$flags{'GameType'} == 3) { } |
|
|
0 |
0 |
elsif ($$flags{'GameType'} == 4) { } |
|
|
0 |
0 |
elsif ($$flags{'GameType'} == 5) { } |
|
247
|
0 |
0 |
if (defined $$player_flags{$flag_name} and defined $$player_flags{$flag_name}[$flag_value]) { } |
|
260
|
0 |
0 |
if (defined $$game_flags{$flag_name} and defined $$game_flags{$flag_name}[$flag_value]) { } |
|
275
|
0 |
0 |
if $_ eq '' |
|
283
|
0 |
0 |
scalar @parts == scalar @fields ? : |
|
284
|
0 |
0 |
if ($ctr % scalar(@fields) == 0) { } |