| utils/csv2pheno_ranker/csv2pheno-ranker | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 46 | 45.6 |
| line | true | false | branch |
|---|---|---|---|
| 45 | 0 | 1 | unless &GetOptions("input|i=s", \my $input, "primary-key-name=s", \my $primary_key_name, "generate-primary-key", \my $generate_primary_key, "separator|sep=s", \my $sep, "array-separator=s", \$array_sep, "output-dir=s", \my $output_dir, "help|?", \my $help, "man", \my $man, "debug=i", \my $debug, "verbose|", \my $verbose, "version|V", sub { print "$0 Version $VERSION\n"; exit; } ) |
| 46 | 0 | 1 | if $help |
| 47 | 0 | 1 | if $man |
| 48 | 0 | 1 | unless $input and $input =~ /\.(csv|tsv)$/ and -f $input |
| 53 | 0 | 1 | if $generate_primary_key and not $primary_key_name |
| 57 | 0 | 1 | if defined $output_dir and not -d $output_dir |
| 112 | 0 | 1 | if $self->{'verbose'} |
| 120 | 0 | 1 | if $self->{'verbose'} |
| 173 | 1 | 0 | if ($generate_primary_key) |
| 178 | 0 | 1 | if grep {$_ eq $primary_key_name;} @$headers |
| 181 | 1 | 0 | if $generate_primary_key |
| 190 | 0 | 1 | if $self->{'verbose'} |
| 195 | 0 | 3 | if $self->{'verbose'} and $count % 1000 == 0 |
| 198 | 3 | 0 | if $generate_primary_key |
| 211 | 2 | 10 | if $data{$key} =~ /$array_sep_qr/ |
| 218 | 0 | 1 | if $self->{'verbose'} |
| 261 | 1 | 0 | if (defined $primary_key_name) { } |
| 264 | 0 | 1 | unless exists $arrays_hash{$primary_key_name} or exists $non_arrays_hash{$primary_key_name} |
| 268 | 0 | 0 | exists $non_arrays_hash{'id'} ? : |
| 279 | 1 | 0 | if (scalar @arrays) |
| 307 | 0 | 0 | $ext eq '.tsv' ? : |
| 0 | 0 | $ext eq '.csv' ? : | |
| 1 | 0 | defined $sep ? : |