File Coverage

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             package SQL::Maker::Util;
2 23     23   34900 use strict;
  23         47  
  23         878  
3 23     23   127 use warnings;
  23         37  
  23         551  
4 23     23   111 use utf8;
  23         40  
  23         115  
5              
6             sub quote_identifier {
7 865     865 0 1962 my ($label, $quote_char, $name_sep) = @_;
8              
9 865 100       2880 return $label if $label eq '*';
10 808 100       2165 return $label unless $name_sep;
11 747 100       2386 return join $name_sep, map { $_ eq '*' ? $_ : $quote_char . $_ . $quote_char } split /\Q$name_sep\E/, $label;
  776         7671  
12             }
13              
14             1;
15