| line |
true |
false |
branch |
|
47
|
0 |
0 |
if (ref $_[0] eq 'HASH') { }
|
|
55
|
0 |
0 |
unless eval "require $ISA[0]; @ISA->import(); 1;"
|
|
82
|
0 |
0 |
unless (defined $self->{'device_settings'}{'channel_default'} and exists $self->{'channels'}{$self->{'device_settings'}{'channel_default'}})
|
|
102
|
0 |
0 |
if (ref $package ne 'HASH') { }
|
|
119
|
0 |
0 |
if ($element eq 'device_settings') { }
|
|
|
0 |
0 |
elsif ($element eq 'connection_settings') { }
|
|
|
0 |
0 |
elsif ($element eq 'channels') { }
|
|
123
|
0 |
0 |
unless exists $self->{'device_settings'}
|
|
133
|
0 |
0 |
unless exists $self->{'connection_settings'}
|
|
158
|
0 |
0 |
if (exists $self->{'channels'}{$channel}) { }
|
|
177
|
0 |
0 |
if (&any(sub {
|
|
187
|
0 |
0 |
if (&any(sub {
|
|
200
|
0 |
0 |
if (defined $self->connection)
|
|
223
|
0 |
0 |
unless my $type = ref $self
|
|
229
|
0 |
0 |
if (exists $self->{'_permitted'}{$name}) { }
|
|
|
0 |
0 |
elsif (exists $self->{'channels'}{$name}) { }
|
|
|
0 |
0 |
elsif (exists $self->{'device_settings'}{$name}) { }
|
|
|
0 |
0 |
elsif (defined $self->{'channels'}{$self->{'device_settings'}{'channel_default'}} and $self->{'channels'}{$self->{'device_settings'}{'channel_default'}}->can($name)) { }
|
|
|
0 |
0 |
elsif (defined $self->{'channels'}{$self->{'device_settings'}{'channel_default'}} and exists $self->{'channels'}{$self->{'device_settings'}{'channel_default'}}{$name}) { }
|
|
231
|
0 |
0 |
if (@_) { }
|
|
242
|
0 |
0 |
if (@_) { }
|
|
278
|
0 |
0 |
if (scalar @_ == 0) { }
|
|
|
0 |
0 |
elsif (scalar @_ == 1) { }
|
|
|
0 |
0 |
elsif (scalar @_ > 1 and scalar(@_) % 2 == 0) { }
|
|
299
|
0 |
0 |
if (ref($value) =~ /HASH/u) { }
|