| line |
true |
false |
branch |
|
86
|
15 |
3 |
if ($key ne 'dither') |
|
87
|
0 |
15 |
if (exists $options{$key}) { } |
|
97
|
0 |
3 |
$self->getOption('type') ? : |
|
105
|
0 |
3 |
unless socket SOCKET, 2, 2, $proto |
|
106
|
0 |
3 |
if ($configuration->getOption($client, 'autodiscovery')) |
|
107
|
0 |
0 |
unless bind SOCKET, $paddr |
|
119
|
0 |
3 |
if ($configuration->getOption($client, 'autodiscovery')) |
|
154
|
0 |
3 |
if (defined $constant and $constant == 3) { } |
|
159
|
3 |
0 |
if (defined CORE::send(SOCKET, $packet, 0, $bcaddr)) { } |
|
172
|
0 |
9 |
unless exists $$self{'__CONFIGURATOR'} |
|
181
|
3 |
0 |
if (@_) { } |
|
212
|
3 |
27 |
unless (exists $$self{'__LOGGER'}) |
|
235
|
3 |
0 |
exists $options{'type'} ? : |
|
236
|
3 |
0 |
exists $options{'location'} ? : |
|
237
|
3 |
0 |
exists $options{'priority'} ? : |
|
238
|
3 |
0 |
exists $options{'volume'} ? : |
|
239
|
3 |
0 |
exists $options{'dither'} ? : |
|
240
|
3 |
0 |
exists $options{'sound'} ? : |
|
245
|
0 |
3 |
unless ($sound =~ /\d+/) |
|
247
|
0 |
0 |
if $configuration->isEvent($sound) |
|
248
|
0 |
0 |
if $configuration->isState($sound) |
|
250
|
0 |
0 |
if (ref $hash) { } |
|
260
|
0 |
3 |
if ($configuration->getOption($client, 'autodiscovery')) { } |
|
303
|
0 |
3 |
unless (defined CORE::send(SOCKET, $packet, 0, $server)) |
|
317
|
0 |
18 |
unless defined $value |
|
328
|
3 |
0 |
if (exists $$self{'__OPTIONS'}{$option}) { } |
|
350
|
0 |
0 |
if (scalar keys %Net::Peep::BC::Servers) { } |
|
377
|
0 |
0 |
if (select $rout = $rin, undef, undef, 0.1) |
|
385
|
0 |
0 |
if (defined $server and $server ne '') |
|
394
|
0 |
0 |
if $type == 0 |
|
395
|
0 |
0 |
if $type == 2 |
|
396
|
0 |
0 |
if $type == 2 |
|
409
|
0 |
0 |
if ($Net::Peep::BC::Servers{$server}{'expires'} <= time) |
|
440
|
0 |
0 |
if (exists $Net::Peep::BC::Servers{$server}) |
|
456
|
0 |
0 |
if ($realid =~ /$str/) { } |
|
487
|
0 |
0 |
unless defined CORE::send(SOCKET, $self->assemble_bc_packet(1), 0, $server) |
|
513
|
0 |
0 |
unless defined CORE::send(SOCKET, $net_packet, 0, $server) |