| line |
true |
false |
branch |
|
591
|
0 |
0 |
unless $func_name =~ /^[A-Z]/ |
|
602
|
2 |
36 |
if %initial_values |
|
612
|
0 |
21 |
if (ref $arg[0] and ref $arg[0] eq 'HASH') { } |
|
629
|
0 |
0 |
if (ref $arg[0] and ref $arg[0] eq 'HASH') { } |
|
653
|
0 |
44 |
if $key =~ /[.\[\]]/ |
|
655
|
0 |
44 |
if (defined $index) |
|
656
|
0 |
0 |
if $index eq '#' or $index == -1 |
|
657
|
0 |
0 |
if ($index eq '?') |
|
661
|
0 |
0 |
if $index ne '' |
|
664
|
37 |
7 |
if (wantarray) |
|
665
|
37 |
0 |
if $$self{$key} |
|
668
|
7 |
0 |
unless $Stone::Fetchlast |
|
675
|
0 |
0 |
if defined $$self{$key} and not $index |
|
676
|
0 |
0 |
if defined $$self{$key}[$index] |
|
705
|
0 |
0 |
if (defined $tag) |
|
706
|
0 |
0 |
if ref $tag eq 'HASH' |
|
707
|
0 |
0 |
if defined $value |
|
725
|
0 |
0 |
if substr($key, 0, 1) eq '.' |
|
730
|
0 |
0 |
defined $$value{'.name'} ? : |
|
|
0 |
0 |
!ref($value) ? : |
|
734
|
0 |
0 |
@values > 1 ? : |
|
742
|
0 |
0 |
if $$self{$tag} |
|
745
|
0 |
0 |
if $Stone::Fetchlast |
|
747
|
0 |
0 |
unless ref $obj and $obj->isa('Stone') |
|
749
|
0 |
0 |
$Stone::Fetchlast ? : |
|
|
0 |
0 |
wantarray ? : |
|
752
|
0 |
0 |
wantarray ? : |
|
774
|
0 |
8 |
if (($key, $position) = $i =~ /(.+)\[([\d\#\?]+)\]/) { } |
|
|
6 |
2 |
elsif (wantarray) { } |
|
783
|
0 |
10 |
unless ref $_ |
|
784
|
4 |
6 |
if (@indices) { } |
|
785
|
4 |
0 |
if $_->isa('Stone') and not exists $$_{'.name'} |
|
790
|
6 |
2 |
wantarray ? : |
|
806
|
0 |
0 |
unless $tabs |
|
812
|
0 |
0 |
if not defined $max[$i] or $max[$i] < length $fields[$i] |
|
816
|
0 |
0 |
if $_ > $MAXWIDTH |
|
847
|
0 |
0 |
if (exists $$self{'.att'}) |
|
862
|
38 |
6 |
if exists $$self{'.name'} |
|
867
|
1 |
5 |
unless @tags |
|
881
|
0 |
0 |
if (exists $$value{'.name'}) { } |
|
898
|
0 |
0 |
$modify ? : |
|
901
|
0 |
0 |
if (exists $$value{'.att'}) |
|
911
|
0 |
0 |
if (exists $$value{'.name'}) { } |
|
932
|
0 |
0 |
unless $position |
|
935
|
0 |
0 |
if (exists $$value{'.name'}) { } |
|
974
|
0 |
0 |
if defined $_[1] |
|
991
|
27 |
6 |
unless ($ref) |
|
998
|
3 |
3 |
if ($ref =~ /Stone/) |
|
1003
|
0 |
3 |
if ($ref eq 'ARRAY') |
|
1008
|
3 |
0 |
if ($ref eq 'HASH') |
|
1071
|
0 |
0 |
if ($register) { } |
|
1075
|
0 |
0 |
unless %{$$self{'.cursors'};} |
|
1083
|
34 |
0 |
unless $$self{'.cursors'} |