| line |
true |
false |
branch |
|
30
|
2646 |
0 |
unless ${"${pkg}::DEBUG";} |
|
48
|
0 |
21 |
unless my $name = shift() |
|
71
|
233 |
370 |
if (defined $config->{'quote_identifiers'}) { } |
|
|
10 |
360 |
elsif (defined $config->{'quote_table_names'} xor defined $config->{'quote_field_names'}) { } |
|
|
114 |
246 |
elsif (defined $config->{'quote_table_names'}) { } |
|
76
|
0 |
466 |
if defined $config->{$_} |
|
82
|
10 |
0 |
if (defined $config->{'quote_table_names'}) { } |
|
85
|
0 |
10 |
unless $config->{'quote_table_names'} |
|
86
|
10 |
0 |
$config->{'quote_table_names'} ? : |
|
90
|
0 |
0 |
unless $config->{'quote_field_names'} |
|
91
|
0 |
0 |
$config->{'quote_field_names'} ? : |
|
98
|
1 |
113 |
if $config->{'quote_table_names'} xor $config->{'quote_field_names'} |
|
100
|
71 |
42 |
$config->{'quote_table_names'} ? : |
|
111
|
9 |
7 |
unless defined $comment_char |
|
130
|
3832 |
10505 |
UNIVERSAL::isa($_[0], 'ARRAY') ? : |
|
135
|
449 |
13888 |
if (&any(sub {
ref $_;
}
, @$list)) { } |
|
145
|
3505 |
28 |
if defined $_ |
|
153
|
117 |
15 |
unless defined $desired_name and length $desired_name > $max_symbol_length |
|
169
|
50 |
15 |
unless $v |
|
176
|
8 |
7 |
if ($v =~ / ^ (\d+) \. (\d{1,3}) (?: \. (\d{1,3}) )? $ /x) { } |
|
|
4 |
3 |
elsif ($v =~ / ^ (\d) (\d{2}) (\d{2}) $ /x) { } |
|
|
2 |
1 |
elsif ($v =~ / ^ (\d+) (?: \. (\d{3}) (\d{3}) )? $ /x) { } |
|
193
|
7 |
7 |
if ($target eq 'perl') { } |
|
|
7 |
0 |
elsif ($target eq 'mysql') { } |
|
194
|
6 |
15 |
unless $_ |
|
196
|
4 |
17 |
unless $_ |
|
206
|
18 |
0 |
unless $v |
|
211
|
0 |
0 |
if ($v =~ / ^ (\d+) \. (\d{1,3}) (?: \. (\d{1,3}) )? $ /x) { } |
|
|
0 |
0 |
elsif ($v =~ / ^ (\d+) (?: \. (\d{3}) (\d{3}) )? $ /x) { } |
|
223
|
0 |
0 |
if ($target eq 'perl') { } |
|
|
0 |
0 |
elsif ($target eq 'native') { } |
|
224
|
0 |
0 |
unless $_ |
|
239
|
0 |
75 |
unless eval "require SQL::Translator::Parser::$type" |
|
243
|
2 |
73 |
if ($type eq "DB2") |
|
251
|
0 |
73 |
unless ${"SQL::Translator::Parser::${type}::GRAMMAR";} |
|
331
|
0 |
0 |
unless $INC{$rel_path} |
|
342
|
0 |
0 |
-f 'File::Spec'->catfile($root, 'Makefile.PL') ? : |
|
363
|
1003 |
0 |
defined $_ ? : |
|
375
|
1 |
24 |
unless builtin::blessed($_) and $_->isa("SQL::Translator::Utils::Error") |
|
384
|
0 |
694 |
if @_ |
|
392
|
47 |
4 |
unless @meths |
|
408
|
0 |
75 |
unless my $meth = $package->can($_) |
|
409
|
36 |
78 |
ref $_ eq 'ARRAY' ? : |
|
410
|
64 |
424 |
unless $diff_hash->{$_} |