| line |
true |
false |
branch |
|
36
|
4 |
36 |
unless (exists $$self{'__LOGGER'}) |
|
44
|
4 |
113 |
if (@_) |
|
63
|
5 |
0 |
if (exists $$self{'__VERSION'}) { } |
|
92
|
0 |
0 |
if (exists $$self{'__SOUNDPATH'}) { } |
|
121
|
0 |
0 |
if (exists $$self{'__APP'}) { } |
|
144
|
0 |
3 |
if (exists $$self{'__PORT'}{$client}) { } |
|
|
3 |
0 |
elsif ($self->optionExists($client, 'port')) { } |
|
160
|
0 |
4 |
unless ref $value eq 'HASH' and exists $$value{'ip'} and exists $$value{'port'} |
|
175
|
0 |
0 |
unless exists $$self{'__BROADCAST'} |
|
186
|
0 |
0 |
wantarray ? : |
|
195
|
0 |
0 |
unless exists $$self{'__BROADCAST'} and exists $$self{'__BROADCAST'}{$class} |
|
198
|
0 |
0 |
wantarray ? : |
|
208
|
0 |
4 |
unless ref $value eq 'HASH' and exists $$value{'name'} and exists $$value{'port'} |
|
221
|
0 |
0 |
unless exists $$self{'__SERVER'} |
|
232
|
0 |
0 |
wantarray ? : |
|
241
|
0 |
3 |
unless exists $$self{'__SERVER'} and exists $$self{'__SERVER'}{$class} |
|
244
|
0 |
3 |
wantarray ? : |
|
254
|
0 |
4 |
unless ref $value eq 'ARRAY' |
|
267
|
0 |
6 |
unless exists $$self{'__CLASS'} |
|
272
|
6 |
0 |
wantarray ? : |
|
281
|
0 |
16 |
unless exists $$self{'__CLASS'} and exists $$self{'__CLASS'}{$key} |
|
284
|
0 |
16 |
wantarray ? : |
|
305
|
0 |
0 |
unless exists $$self{'__CLIENTCLASS'}{$client} |
|
310
|
0 |
0 |
wantarray ? : |
|
320
|
0 |
72 |
unless ref $value eq 'HASH' |
|
333
|
0 |
0 |
unless exists $$self{'__EVENT'} |
|
338
|
0 |
0 |
wantarray ? : |
|
347
|
0 |
0 |
unless exists $$self{'__EVENT'} and exists $$self{'__EVENT'}{$name} |
|
350
|
0 |
0 |
wantarray ? : |
|
369
|
0 |
16 |
unless $client |
|
372
|
0 |
16 |
unless @text |
|
390
|
0 |
0 |
unless exists $$self{'__CONFIGURATIONTEXT'}{$client} |
|
403
|
0 |
16 |
unless $client |
|
406
|
0 |
16 |
unless @text |
|
424
|
0 |
0 |
unless exists $$self{'__NOTIFICATIONTEXT'}{$client} |
|
437
|
0 |
12 |
unless ref $value eq 'HASH' |
|
450
|
0 |
0 |
unless exists $$self{'__STATE'} |
|
455
|
0 |
0 |
wantarray ? : |
|
464
|
0 |
0 |
unless exists $$self{'__STATE'} and exists $$self{'__STATE'}{$name} |
|
467
|
0 |
0 |
wantarray ? : |
|
486
|
0 |
0 |
unless ref $value eq 'HASH' |
|
501
|
0 |
0 |
unless exists $$self{'__CLIENTEVENT'} |
|
510
|
0 |
0 |
wantarray ? : |
|
519
|
0 |
0 |
unless exists $$self{'__CLIENTEVENT'} and exists $$self{'__CLIENTEVENT'}{$name} |
|
522
|
0 |
0 |
wantarray ? : |
|
536
|
0 |
0 |
if exists $$event{'group'} |
|
537
|
0 |
0 |
if exists $$event{'option-letter'} |
|
543
|
0 |
0 |
if $self->optionExists($client, 'events') |
|
544
|
0 |
0 |
if $self->optionExists($client, 'groups') |
|
545
|
0 |
0 |
if $self->optionExists($client, 'exclude') |
|
550
|
0 |
0 |
if $letter eq $letter_option |
|
553
|
0 |
0 |
if (grep /^all$/, @groups) { } |
|
556
|
0 |
0 |
if $group eq $exclude_option |
|
560
|
0 |
0 |
if $group eq $group_option |
|
588
|
0 |
0 |
unless ref $value eq 'HASH' |
|
594
|
0 |
0 |
if ($identifier =~ /^(\d+\.)+\d+$/) { } |
|
|
0 |
0 |
elsif ($identifier =~ /^([\w-]+\.)+\w+$/) { } |
|
598
|
0 |
0 |
if $host |
|
599
|
0 |
0 |
unless $host |
|
607
|
0 |
0 |
if $ip |
|
608
|
0 |
0 |
unless $ip |
|
642
|
0 |
0 |
unless exists $$self{'__CLIENTHOST'} |
|
651
|
0 |
0 |
wantarray ? : |
|
660
|
0 |
0 |
unless exists $$self{'__CLIENTHOST'} and exists $$self{'__CLIENTHOST'}{$client} |
|
664
|
0 |
0 |
wantarray ? : |
|
674
|
0 |
0 |
unless ref $value eq 'HASH' |
|
677
|
0 |
0 |
unless exists $$value{'name'} and exists $$value{'value'} and exists $$value{'status'} |
|
690
|
0 |
0 |
unless exists $$self{'__CLIENTUPTIME'} |
|
699
|
0 |
0 |
wantarray ? : |
|
708
|
0 |
0 |
unless exists $$self{'__CLIENTUPTIME'} and exists $$self{'__CLIENTUPTIME'}{$client} |
|
712
|
0 |
0 |
wantarray ? : |
|
722
|
0 |
0 |
unless ref $value eq 'HASH' |
|
725
|
0 |
0 |
unless exists $$value{'name'} and exists $$value{'value'} and exists $$value{'status'} |
|
738
|
0 |
0 |
unless exists $$self{'__CLIENTPROC'} |
|
747
|
0 |
0 |
wantarray ? : |
|
756
|
0 |
0 |
unless exists $$self{'__CLIENTPROC'} and exists $$self{'__CLIENTPROC'}{$client} |
|
760
|
0 |
0 |
wantarray ? : |
|
771
|
46 |
0 |
if (@_ == 2) { } |
|
|
0 |
0 |
elsif (@_ == 3) { } |
|
801
|
21 |
54 |
if (@_ == 1) { } |
|
|
54 |
0 |
elsif (@_ == 2) { } |
|
812
|
0 |
75 |
unless $self->optionExists($name, $option) |
|
827
|
30 |
78 |
if (@_ == 1) { } |
|
|
78 |
0 |
elsif (@_ == 2) { } |
|
838
|
84 |
24 |
if (exists $$self{'__OPTIONS'}{$name} and exists $$self{'__OPTIONS'}{$name}{$option}) { } |
|
852
|
0 |
0 |
if (@_) { } |
|
858
|
0 |
0 |
unless exists $$self{'__OPTIONS'}{$name} |
|
861
|
0 |
0 |
wantarray ? : |
|
871
|
3 |
0 |
if (@_) { } |