| lib/BATsh.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 18 | 32 | 56.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 19 | 7 | 0 | 0 | $] < "5.006" and not defined &warnings::import |
| 127 | 0 | 1 | 3 | $abs_script ne "" and not "File::Spec"->file_name_is_absolute($abs_script) |
| 144 | 130 | 1 | 62 | $token =~ m[\A[A-Z0-9_\-\\/\.:\@%]+\z] and $token =~ /[A-Z]/ |
| 210 | 180 | 2 | 1 | $cur ne "" and $s =~ /\A(?:RET|RETURN)\s*\z/i |
| 180 | 2 | 0 | $cur ne "" and $s =~ /\A:([A-Za-z_][A-Za-z0-9_]*)\s*\z/ | |
| 436 | 0 | 0 | 0 | $depth == 0 and $line =~ /\A\s*\z/ |
| 439 | 0 | 0 | 0 | $depth == 0 and $cur_mode eq "" |
| line | l | !l | condition |
|---|---|---|---|
| 75 | 0 | 0 | $args{'verbose'} || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 190 | 15 | 0 | 114 | exists $_SH_OPEN{$l} or $first eq "{" |
| 191 | 15 | 5 | 94 | exists $_SH_CLOSE{$l} or $first eq "}" |
| 382 | 9 | 0 | 173 | $mode eq "EMPTY" or $mode eq "COMMENT" |