| line |
true |
false |
branch |
|
49
|
1 |
1 |
if (@_) |
|
51
|
1 |
0 |
if (my $attrs = $opts->{'FIRMATA_ATTRIBS'}) |
|
55
|
1 |
0 |
unless (ref *{$pkg . '::ISA';} eq 'ARRAY' and @${$pkg . '::ISA';}) |
|
58
|
1 |
0 |
$opts->{'ISA'} ? : |
|
|
0 |
1 |
ref $opts->{'ISA'} ? : |
|
75
|
0 |
0 |
if $self->{'_biofunc_pre_init'} |
|
77
|
0 |
0 |
if ($self->{'_biofunc_init'}) { } |
|
84
|
0 |
0 |
if $self->{'_biofunc_post_init'} |
|
102
|
0 |
0 |
if $self->{'_biofunc_pre_init'} |
|
104
|
0 |
0 |
if ($self->{'_biofunc_init'}) { } |
|
111
|
0 |
0 |
if $self->{'_biofunc_post_init'} |
|
125
|
0 |
0 |
unless exists $opts->{$k} |
|
126
|
0 |
0 |
if $k =~ /^_biofunc/ |
|
140
|
0 |
0 |
@_ ? : |
|
142
|
0 |
0 |
if ${"${class}::ABSOLUTE_ATTRIBS";} |
|
147
|
0 |
0 |
unless ${"${c}::FIRMATA_ATTRIBS";} |
|
150
|
0 |
0 |
if (${"${c}::ABSOLUTE_ATTRIBS";}) { } |
|
154
|
0 |
0 |
if $track->{$c} |
|
159
|
0 |
0 |
if exists $u->{$k} |
|
165
|
0 |
0 |
$class->can($f) ? : |
|
185
|
0 |
1 |
unless @_ > 1 |
|
187
|
0 |
1 |
if (@_ == 2) |
|
188
|
0 |
0 |
if ref $_[1] |
|
192
|
0 |
1 |
unless @_ % 2 |
|
207
|
0 |
0 |
if (ref $s) |
|
208
|
0 |
0 |
if (UNIVERSAL::isa($s, 'HASH')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($s, 'ARRAY')) { } |
|
211
|
0 |
0 |
ref $v ? : |
|
217
|
0 |
0 |
ref $_ ? : |
|
232
|
0 |
0 |
if @_ >= 2 |
|
242
|
0 |
0 |
if @_ >= 2 |
|
266
|
0 |
0 |
if (@_) |
|
288
|
0 |
0 |
if $Device::Firmata::Base::FIRMATA_ERROR |
|
290
|
0 |
0 |
if ($Device::Firmata::Base::FIRMATA_ERROR_CLASS eq 'Device::Firmata::Error') |
|
297
|
0 |
0 |
if $@ |
|
301
|
0 |
0 |
if $@ |
|
359
|
0 |
0 |
if ($self and UNIVERSAL::isa($self, 'Device::Firmata::Base')) { } |
|
384
|
0 |
0 |
unless $object_class =~ /^\w+(?:::\w+)*$/ |
|
385
|
0 |
0 |
unless eval "require $object_class; 1" |