| blib/lib/Text/Tabulate.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 60 | 80 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 98 | 0 | 18 | unless ($self->configure(@_)) |
| 142 | 1 | 31 | unless ($#_ % 2) |
| 156 | 2 | 98 | unless exists $defaults{$kk} |
| 163 | 2 | 29 | if (%arg) |
| 166 | 0 | 2 | $#extras > 0 ? : |
| 218 | 85 | 1 | if ($line) |
| 234 | 0 | 11 | if $cf >= 0 |
| 244 | 0 | 168 | if defined $ignore and $line =~ /$ignore/ |
| 249 | 21 | 147 | if $#cell > $cols |
| 255 | 204 | 754 | if not defined $width[$i] or $width[$i] < $l |
| 267 | 0 | 11 | if length $pad < 1 |
| 268 | 7 | 4 | if (length $pad == 1) |
| 277 | 2 | 9 | if ($top) |
| 280 | 2 | 0 | if (length $top == 1) |
| 288 | 12 | 2 | if $i |
| 299 | 0 | 168 | if (defined $ignore and $line =~ /$ignore/) |
| 311 | 0 | 168 | $line =~ s/[\r\n]+$// ? : |
| 325 | 60 | 1092 | unless defined $adjust[$i] |
| 329 | 64 | 992 | $adjust[$i] eq 'c' ? : |
| 96 | 1056 | $adjust[$i] eq 'r' ? : | |
| 341 | 984 | 168 | if $i > 0 |
| 342 | 132 | 1020 | if $f > 0 |
| 344 | 909 | 243 | if $b > 0 |
| 363 | 2 | 9 | if ($bottom) |
| 366 | 2 | 0 | if (length $bottom == 1) |
| 374 | 12 | 2 | if $i |
| 397 | 11 | 0 | if wantarray |
| 439 | 0 | 25 | unless /$tab/ |
| 445 | 20 | 5 | if (@last) |
| 452 | 6 | 40 | if $max > 0 and $i >= $max |
| 453 | 0 | 40 | unless defined $this[$i] |
| 454 | 0 | 40 | unless defined $last[$i] |
| 455 | 14 | 26 | unless $this[$i] eq $last[$i] |
| 507 | 0 | 5 | if (ref $_[0] eq '') { } |
| 5 | 0 | elsif (ref $_[0] eq 'HASH') { } | |
| 638 | 0 | 1 | if our(@Text::Tabulate::missing) = grep((!eval("use $_; 1")), ('File::Basename', 'Getopt::Long')) |
| 713 | 0 | 1 | unless GetOptions('usage', sub { print $usage; exit; } , %opts, 'p=s', \$$tab{'pad'}, 't=s', \$$tab{'tab'}, 'e=s', \$$tab{'eol'}, 'i=s', \$$tab{'ignore'}, 'g=s', \$$tab{'gutter'}, 'a=s', \$$tab{'adjust'}, 'c=i', \$$tab{'cf'}, 'l=s', \$$tab{'left'}, 'r=s', \$$tab{'right'}, 'T=s', \$$tab{'top'}, 'B=s', \$$tab{'bottom'}, 's|stanza+', \$bystanza, 'h|html+', \$html, 'v|version', sub { print "$Text::Tabulate::VERSION\n"; exit; } , 'debug', sub { no warnings; eval 'sub debug { print STDERR @_; }'; } ) |
| 723 | 0 | 1 | if ($html % 2) |
| 736 | 0 | 1 | $bystanza ? : |
| 743 | 0 | 1 | unless @table |