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 24     24   17151 use strict;
  24         62  
  24         817  
3 24     24   95 use warnings;
  24         35  
  24         482  
4 24     24   88 use utf8;
  24         32  
  24         89  
5              
6             sub quote_identifier {
7 817     817 0 971 my ($label, $quote_char, $name_sep) = @_;
8              
9 817 100       1334 return $label if $label eq '*';
10 761 100       1207 return $label unless $name_sep;
11 700 100       1729 return join $name_sep, map { $_ eq '*' ? $_ : $quote_char . $_ . $quote_char } split /\Q$name_sep\E/, $label;
  729         3110  
12             }
13              
14             1;
15