| blib/lib/App/vl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 27 | 30 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 29 | 10 | 22 | if ($value) { } |
| 41 | 10 | 9 | if ($value) { } |
| 60 | 10 | 0 | $self->opt('no_pager') ? : |
| 66 | 1 | 11 | if $grep and not $line =~ /\Q$grep\E/i |
| 68 | 0 | 11 | if $line eq '' |
| 69 | 2 | 9 | $self->opt('ps') ? : |
| 80 | 8 | 2 | unless ($one_space_table) |
| 88 | 26 | 15 | unless $one_space_table |
| 107 | 16 | 25 | if length $space == 1 |
| 110 | 2 | 8 | if $#spaces >= 3 and $#spaces / 2 <= $one_space |
| 119 | 14 | 27 | if $max < $len |
| 149 | 20 | 9 | $i != $limit ? : |
| 166 | 42 | 2 | if (not $label_filter_regexp or $labels->[$col] =~ /$label_filter_regexp/) |
| 178 | 10 | 1 | unless $self->opt('label') |
| 207 | 0 | 10 | unless &GetOptionsFromArray(\@argv, 'no-pager', \$opt->{'no_pager'}, 'grep=s', \$opt->{'grep'}, 'label=s', \$opt->{'label'}, 'ps', \$opt->{'ps'}, 'separator=s', \$opt->{'separator'}, 'line-char=s', \$opt->{'line_char'}, 'h|help', sub { $class->_show_usage(1); } , 'v|version', sub { print "$0 $VERSION\n"; exit 1; } ) |