| blib/lib/SQL/Maker/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 14 | 14 | 100.0 |
| branch | 6 | 6 | 100.0 |
| condition | n/a | ||
| subroutine | 4 | 4 | 100.0 |
| pod | 0 | 1 | 0.0 |
| total | 24 | 25 | 96.0 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | use strict; | ||||||
| 2 | 25 | 25 | 101545 | use warnings; | |||
| 25 | 63 | ||||||
| 25 | 675 | ||||||
| 3 | 25 | 25 | 122 | use utf8; | |||
| 25 | 53 | ||||||
| 25 | 530 | ||||||
| 4 | 25 | 25 | 115 | ||||
| 25 | 49 | ||||||
| 25 | 115 | ||||||
| 5 | my ($label, $quote_char, $name_sep) = @_; | ||||||
| 6 | |||||||
| 7 | 1165 | 1165 | 0 | 4097 | return $label if $label eq '*'; | ||
| 8 | return $label unless $name_sep; | ||||||
| 9 | 1165 | 100 | 2507 | return join $name_sep, map { $_ eq '*' ? $_ : $quote_char . $_ . $quote_char } split /\Q$name_sep\E/, $label; | |||
| 10 | 1098 | 100 | 2286 | } | |||
| 11 | 1029 | 100 | 3285 | ||||
| 1070 | 5790 | ||||||
| 12 | 1; | ||||||
| 13 |