| line |
true |
false |
branch |
|
39
|
0 |
44 |
if defined $ENV{'FORMAT_PRETTY_TABLE_COLUMN_ORDERS'}
|
|
42
|
0 |
44 |
if defined $ENV{'FORMAT_PRETTY_TABLE_COLUMN_FORMATS'}
|
|
45
|
0 |
44 |
if defined $ENV{'FORMAT_PRETTY_TABLE_COLUMN_TYPES'}
|
|
56
|
135 |
12 |
if (not ref $data or &blessed($data)) { }
|
|
|
9 |
3 |
elsif (ref $data eq 'ARRAY') { }
|
|
57
|
8 |
127 |
unless (defined $data)
|
|
58
|
8 |
0 |
if $is_format
|
|
61
|
0 |
127 |
if (length $data > $maxlen)
|
|
64
|
42 |
85 |
if $is_format
|
|
67
|
0 |
21 |
if ref $_
|
|
|
0 |
9 |
if (grep {not &blessed($_) if ref $_;} @$data)
|
|
70
|
21 |
0 |
defined $_ ? :
|
|
71
|
0 |
9 |
if (length $s > $maxlen)
|
|
74
|
3 |
6 |
if $is_format
|
|
98
|
27 |
45 |
if (not ref $data or &blessed($data))
|
|
106
|
24 |
21 |
if (ref $data eq 'ARRAY')
|
|
109
|
17 |
10 |
unless ref $row eq 'ARRAY'
|
|
110
|
2 |
8 |
if defined $numcols and $numcols != @$row
|
|
111
|
0 |
8 |
if grep {not $self->_is_cell($_);} @$row
|
|
121
|
19 |
21 |
if (ref $data eq 'ARRAY')
|
|
124
|
7 |
20 |
unless ref $row eq 'HASH'
|
|
126
|
0 |
47 |
unless $self->_is_cell($row->{$k})
|
|
138
|
7 |
21 |
if (ref $data eq 'ARRAY')
|
|
140
|
0 |
16 |
unless $self->_is_cell($_)
|
|
150
|
0 |
21 |
if $self->{'opts'}{'skip_hot'}
|
|
151
|
0 |
21 |
unless ref $data eq 'HASH'
|
|
155
|
0 |
24 |
unless $s2
|
|
156
|
9 |
15 |
if $s2 =~ /^(?:list|aoa|aoh|hash)$/
|
|
158
|
14 |
7 |
unless $has_t
|
|
166
|
14 |
0 |
if (ref $data eq 'HASH')
|
|
168
|
3 |
10 |
unless $self->_is_cell($_)
|
|
189
|
2 |
10 |
if ($tcff)
|
|
194
|
0 |
3 |
unless ($scol ~~ \@tcols)
|
|
196
|
2 |
0 |
if ($match)
|
|
205
|
0 |
12 |
if ($tctt)
|
|
210
|
0 |
0 |
unless ($scol ~~ \@tcols)
|
|
212
|
0 |
0 |
if ($match)
|
|
223
|
7 |
5 |
if ($t->{'at_opts'})
|
|
226
|
2 |
10 |
if ($colfmts)
|
|
230
|
0 |
12 |
if ($coltypes)
|
|
234
|
0 |
12 |
if ($t->{'col_widths'})
|
|
250
|
7 |
1 |
defined $data ? :
|
|
251
|
2 |
6 |
unless length $sdata
|
|
252
|
2 |
4 |
$sdata =~ /\n\z/s ? :
|
|
257
|
3 |
0 |
if ($self->{'opts'}{'interactive'}) { }
|
|
268
|
0 |
3 |
if ($ENV{'COLUMNS'}) { }
|
|
|
3 |
0 |
elsif (eval {
|
|
275
|
0 |
0 |
$^O =~ /Win/ ? :
|
|
278
|
3 |
0 |
if ($maxwidth)
|
|
286
|
0 |
3 |
if $numcols > @rows
|
|
287
|
3 |
0 |
if $numcols < 1
|
|
291
|
0 |
3 |
if defined $self->{'opts'}{'list_max_columns'} and $numcols > $self->{'opts'}{'list_max_columns'}
|
|
293
|
3 |
0 |
if ($numrows)
|
|
301
|
0 |
3 |
if ($numcols > 1)
|
|
308
|
7 |
0 |
$idx < @rows ? :
|
|
327
|
3 |
0 |
if ($self->{'opts'}{'interactive'}) { }
|
|
346
|
2 |
1 |
if ($self->{'opts'}{'interactive'}) { }
|
|
347
|
1 |
1 |
if (@$data) { }
|
|
374
|
5 |
1 |
if ($self->{'opts'}{'interactive'}) { }
|
|
413
|
2 |
25 |
if (not $struct) { }
|
|
|
8 |
17 |
elsif ($struct eq 'scalar') { }
|
|
|
3 |
14 |
elsif ($struct eq 'list') { }
|
|
|
3 |
11 |
elsif ($struct eq 'hash') { }
|
|
|
3 |
8 |
elsif ($struct eq 'aoa') { }
|
|
|
6 |
2 |
elsif ($struct eq 'aoh') { }
|
|
|
2 |
0 |
elsif ($struct eq 'hot') { }
|
|
439
|
2 |
4 |
if ($tco)
|
|
440
|
0 |
2 |
unless ref $tco eq 'ARRAY'
|
|
444
|
0 |
2 |
unless ref $co eq 'ARRAY'
|
|
447
|
1 |
6 |
unless $_ ~~ \@$cols
|
|
460
|
1 |
5 |
if ($found) { }
|
|
463
|
1 |
9 |
defined $orders{$a} && defined $orders{$b} ? :
|
|
|
0 |
1 |
unless defined $orders{$a} && defined $orders{$b} ? $orders{$a} <=> $orders{$b} : 0
|