| lib/BoutrosLab/TSVStream/Format/AnnovarInput/Types.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 6 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 41 | 0 | 48 | if $allow_tag and $val =~ /^(?:chr)?Un_\S+$/ |
| 42 | 4 | 44 | unless my($l, $v, $tag) = $val =~ /^(?:chr)?(?:([XYM])|(\d+))(_\S+)?$/ |
| 43 | 44 | 0 | if $l || 1 <= $v && $v <= 22 and $allow_tag || !$tag |