| blib/lib/Text/Template/Permute.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 22 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 0 | 7 | unless my($command, $opts, $args) = $directive =~ /\A(\w+)\s*([^:]*)\s*:\s*(.+)\z/s |
| 27 | 3 | 4 | if ($command eq 'comment') { } |
| 4 | 0 | elsif ($command eq 'permute') { } | |
| 0 | 0 | elsif ($command eq 'pick') { } | |
| 38 | 0 | 0 | if ($opts eq 'once') { } |
| 51 | 3 | 0 | if (@_) |
| 66 | 7 | 7 | if (defined $2) { } |
| 82 | 16 | 25 | if (ref $part) { } |
| 96 | 0 | 0 | if (exists $self->{'_var_idx'}{$name}) { } |
| 101 | 0 | 0 | if (@_) |
| 116 | 2 | 1 | if (@{$self->{'_permute_args'};}) { } |