| line |
true |
false |
branch |
|
14
|
5 |
0 |
ref $_[0] eq 'HASH' ? : |
|
29
|
0 |
5 |
unless (ref $self eq 'Sort::ArrayOfArrays') |
|
38
|
0 |
5 |
unless $$self{'results'} |
|
39
|
0 |
5 |
unless ref $$self{'results'} eq 'ARRAY' and $$self{'results'}[0] and ref $$self{'results'}[0] eq 'ARRAY' |
|
40
|
0 |
5 |
if ($$self{'header_row'}) |
|
58
|
0 |
5 |
if ($$self{'header_row'}) |
|
68
|
0 |
5 |
if $$self{'sort_code_text'} |
|
74
|
7 |
0 |
if ($$self{'sort_code'} and ref $$self{'sort_code'}) |
|
75
|
0 |
7 |
if (ref $$self{'sort_code'} eq 'HASH' and $$self{'sort_code'}{$col}) { } |
|
|
0 |
7 |
elsif (ref $$self{'sort_code'} eq 'ARRAY' and $$self{'sort_code'}[$col]) { } |
|
76
|
0 |
0 |
if (ref $$self{'sort_code'}{$col}) |
|
77
|
0 |
0 |
unless ref $$self{'sort_code'}{$col} eq 'CODE' |
|
82
|
0 |
0 |
if (ref $$self{'sort_code'}[$col]) |
|
83
|
0 |
0 |
unless ref $$self{'sort_code'}[$col] eq 'CODE' |
|
96
|
7 |
0 |
if ($$self{'sort_code'} and ref $$self{'sort_code'}) |
|
97
|
0 |
7 |
if (ref $$self{'sort_code'} eq 'HASH' and $$self{'sort_code'}{$this_sort_column}) { } |
|
|
0 |
7 |
elsif (ref $$self{'sort_code'} eq 'ARRAY' and $$self{'sort_code'}[$this_sort_column]) { } |
|
105
|
7 |
0 |
unless ($this_sort_method) |
|
108
|
6 |
1 |
if ($$self{'results'}[$i][$this_sort_column] =~ /[^0-9.\-+ ]/) { } |
|
|
1 |
0 |
elsif ($$self{'results'}[$i][$this_sort_column] =~ /^[0-9.\-+]+$/) { } |
|
111
|
0 |
1 |
if $$self{'results'}[$i][$this_sort_column] =~ /^\.+$/ |
|
118
|
5 |
2 |
if ($total_sorts == $this_sort) |
|
119
|
4 |
1 |
if ($this_toggle and $this_sort_method =~ /^.a$/) { } |
|
|
0 |
2 |
elsif ($this_toggle and $this_sort_method =~ /^.d$/) { } |
|
127
|
0 |
7 |
if ($this_sort_method =~ s/^l(.)$/r$1/i) |
|
128
|
0 |
0 |
unless exists $$self{'sort_method_regex'}{$this_sort_column} |
|
134
|
6 |
1 |
if ($this_sort_method =~ /^a.$/i) { } |
|
|
1 |
0 |
elsif ($this_sort_method =~ /^n.$/i) { } |
|
|
0 |
0 |
elsif ($this_sort_method =~ /^t.$/i) { } |
|
|
0 |
0 |
elsif ($this_sort_method =~ /^r.$/i) { } |
|
141
|
0 |
0 |
unless $$self{'sort_method_regex'}{$this_sort_column} |
|
148
|
0 |
0 |
if ($$self{'sort_code'}[$this_sort_column] =~ /^.d$/i) { } |
|
158
|
3 |
4 |
if (not $special_sort_method and $this_sort_method =~ /^.a$/i) { } |
|
|
4 |
0 |
elsif ($this_sort_method =~ /^.d$/i) { } |
|
170
|
0 |
5 |
if $$self{'sort_code_ref'} and ref $$self{'sort_code_ref'} eq 'CODE' |
|
173
|
0 |
5 |
if ($@) |