| line |
true |
false |
branch |
|
174
|
0 |
0 |
unless defined $s |
|
186
|
0 |
0 |
if ($s =~ /^$delimiter/ux) { } |
|
|
0 |
0 |
elsif ($s =~ /^delimiter\s+(\S+)\s*(?:\n|\z)/ipu) { } |
|
|
0 |
0 |
elsif ($s =~ /^(\s+)/su or $s =~ /^(\w+)/u) { } |
|
|
0 |
0 |
elsif ($s =~ /^--.*(?:\n|\z)/pu or $s =~ /^\#.*(?:\n|\z)/pu or $s =~ m[^/\*(?:[^\*]|\*[^/])*(?:\*/|\*\z|\z)]pu or $s =~ /^'(?:[^'\\]*|\\(?:.|\n)|'')*(?:'|\z)/pu or $s =~ /^"(?:[^"\\]*|\\(?:.|\n)|"")*(?:"|\z)/pu or $s =~ /^`(?:[^`]*|``)*(?:`|\z)/pu) { } |
|
211
|
0 |
0 |
if ($chunk =~ /^--\s+[#]+\s*(\w+)/iu) |
|
213
|
0 |
0 |
if length $tag and not $buf =~ /^\s*$/su |
|
221
|
0 |
0 |
if ($is_new) { } |
|
222
|
0 |
0 |
if length $tag and not $buf =~ /^\s*$/su |
|
231
|
0 |
0 |
if length $tag and not $buf =~ /^\s*$/su |
|
251
|
0 |
0 |
unless $dbi and $dbi->ping |
|
256
|
0 |
0 |
unless $dbi->query($sql) |
|
265
|
0 |
0 |
wantarray ? : |