| line |
true |
false |
branch |
|
334
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
353
|
0 |
0 |
ref $comps eq 'ARRAY' ? : |
|
354
|
0 |
0 |
ref $args eq 'ARRAY' ? : |
|
380
|
0 |
0 |
@c_args ? : |
|
386
|
0 |
0 |
if @tie_args |
|
387
|
0 |
0 |
ref $comp->{'slot'} ? : |
|
400
|
0 |
0 |
if (ref $_[1] eq 'CODE') { } |
|
415
|
0 |
0 |
if (ref $opt) { } |
|
427
|
0 |
0 |
if (ref $opt) { } |
|
428
|
0 |
0 |
if (UNIVERSAL::isa($opt, 'ARRAY')) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($opt, 'HASH')) { } |
|
437
|
0 |
0 |
if (exists {-compatibility => ['*', 'clear_*', undef, undef], -eiffel => [undef, undef, '*', 'set_*'], -java => [undef, undef, 'get*', 'set*'], -noclear => ['*', undef, undef, undef]}->{$opt}) { } |
|
440
|
0 |
0 |
if ($opt eq '-static') { } |
|
|
0 |
0 |
elsif ($opt =~ /^-(?:set_once(?:_or_(\w+))?)/) { } |
|
446
|
0 |
0 |
if ($action_name eq 'ignore') { } |
|
|
0 |
0 |
elsif ($action_name =~ /carp|cluck|croak|confess/) { } |
|
|
0 |
0 |
elsif ($action_name =~ /die|warn/) { } |
|
454
|
0 |
0 |
if (exists $options->{'static'}) { } |
|
455
|
0 |
0 |
if ($is_set{$_[2]}++) { } |
|
457
|
0 |
0 |
if (exists $is_set{$_[2]} and grep(($_ == $_[0]), @{$is_set{$_[2]};})) { } |
|
476
|
0 |
0 |
if (exists $options->{'static'}) { } |
|
477
|
0 |
0 |
if ($is_set{$_[2]}++) { } |
|
482
|
0 |
0 |
if (exists $is_set{$_[2]} and grep(($_ == $_[0]), @{$is_set{$_[2]};})) { } |
|
503
|
0 |
0 |
if (exists $options->{'static'}) { } |
|
504
|
0 |
0 |
if ($is_set{$_[2]}++) { } |
|
509
|
0 |
0 |
if (exists $is_set{$_[2]} and grep(($_ == $_[0]), @{$is_set{$_[2]};})) { } |
|
530
|
0 |
0 |
if (exists $options->{'static'}) { } |
|
531
|
0 |
0 |
if ($is_set{$_[2]}++) { } |
|
534
|
0 |
0 |
if (exists $is_set{$_[2]} and grep(($_ == $_[0]), @{$is_set{$_[2]};})) { } |
|
550
|
0 |
0 |
if $type eq "static_get_set" |
|
554
|
0 |
0 |
if $_ < @names |
|
563
|
0 |
0 |
if ($name eq '-dummy') { } |
|
565
|
0 |
0 |
if substr($v1type, -6) eq "create" |
|
568
|
0 |
0 |
if (defined $_[3]) |
|
573
|
0 |
0 |
if (defined $_[1] and exists $list{$_[1]} and $list{$_[1]} ne $_[0]) |
|
582
|
0 |
0 |
if defined $_[1] |
|
593
|
0 |
0 |
if (ref $opt) { } |
|
595
|
0 |
0 |
unless $optname eq "-ctor_args" |
|
609
|
0 |
0 |
if (UNIVERSAL::isa($_, $el_type)) { } |
|
|
0 |
0 |
elsif (ref $_ eq 'ARRAY') { } |
|
613
|
0 |
0 |
index($type, 'hash') != -1 ? : |
|
723
|
0 |
0 |
if (ref $opt) { } |
|
|
0 |
0 |
elsif ($opt eq '-dummy') { } |
|
725
|
0 |
0 |
if ($_ eq '-join') { } |
|
735
|
0 |
0 |
defined $_[3] ? : |
|
|
0 |
0 |
defined $_[1] ? : |
|
746
|
0 |
0 |
if (UNIVERSAL::isa($_[0], 'HASH')) { } |
|
753
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
783
|
0 |
0 |
if (ref $_[1] eq "ARRAY") |
|
784
|
0 |
0 |
if (@{$_[1];} == 1) { } |
|
|
0 |
0 |
elsif (defined $_[1][1]) { } |
|
811
|
0 |
0 |
if (ref $_[1] eq "ARRAY") |
|
812
|
0 |
0 |
if (@{$_[1];} == 1) { } |
|
|
0 |
0 |
elsif (defined $_[1][1]) { } |
|
835
|
0 |
0 |
unless UNIVERSAL::isa($names, "ARRAY") |
|
842
|
0 |
0 |
if ref $type |
|
846
|
0 |
0 |
UNIVERSAL::isa($args, 'ARRAY') ? : |
|
848
|
0 |
0 |
if (not ref $_) { } |
|
|
0 |
0 |
elsif (UNIVERSAL::isa($_, 'HASH')) { } |
|
853
|
0 |
0 |
if UNIVERSAL::isa($fwds[0], "ARRAY") |
|
898
|
0 |
0 |
ref $args eq 'ARRAY' ? : |
|
904
|
0 |
0 |
if (ref $arg eq 'HASH') { } |
|
907
|
0 |
0 |
ref $comp_mthds ? : |
|
909
|
0 |
0 |
if @comp_mthds |
|
939
|
0 |
0 |
ref $slots eq 'ARRAY' ? : |
|
942
|
0 |
0 |
if ref $class eq "ARRAY" |
|
945
|
0 |
0 |
if (@class_args) { } |
|
979
|
0 |
0 |
ref $slots eq 'ARRAY' ? : |
|
982
|
0 |
0 |
if ref $class eq "ARRAY" |
|
985
|
0 |
0 |
if (@class_args) { } |