| utils/csv2pheno_ranker/csv2pheno-ranker | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 46 | 45.6 |
| line | true | false | branch |
|---|---|---|---|
| 46 | 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; } ) |
| 47 | 0 | 1 | if $help |
| 48 | 0 | 1 | if $man |
| 49 | 0 | 1 | unless $input and $input =~ /\.(csv|tsv)$/ and -f $input |
| 54 | 0 | 1 | if $generate_primary_key and not $primary_key_name |
| 58 | 0 | 1 | if defined $output_dir and not -d $output_dir |
| 114 | 0 | 1 | if $self->{'verbose'} |
| 122 | 0 | 1 | if $self->{'verbose'} |
| 178 | 1 | 0 | if ($generate_primary_key) |
| 183 | 0 | 1 | if grep {$_ eq $primary_key_name;} @$headers |
| 186 | 1 | 0 | if $generate_primary_key |
| 195 | 0 | 1 | if $self->{'verbose'} |
| 200 | 0 | 3 | if $self->{'verbose'} and $count % 1000 == 0 |
| 203 | 3 | 0 | if $generate_primary_key |
| 216 | 2 | 10 | if $data{$key} =~ /$array_sep_qr/ |
| 223 | 0 | 1 | if $self->{'verbose'} |
| 268 | 1 | 0 | if (defined $primary_key_name) { } |
| 271 | 0 | 1 | unless exists $arrays_hash{$primary_key_name} or exists $non_arrays_hash{$primary_key_name} |
| 275 | 0 | 0 | exists $non_arrays_hash{'id'} ? : |
| 286 | 1 | 0 | if (scalar @arrays) |
| 315 | 0 | 0 | $ext eq '.tsv' ? : |
| 0 | 0 | $ext eq '.csv' ? : | |
| 1 | 0 | defined $sep ? : |