| blib/lib/App/sh2p/Builtins.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 125 | 0.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 163 | 0 | 0 | 0 | defined $level and $level =~ /^\d+$/ |
| 201 | 0 | 0 | 0 | defined $level and $level =~ /^\d+$/ |
| 357 | 0 | 0 | 0 | @args and $cmd ne 'umask' |
| 687 | 0 | 0 | 0 | not query_in_quotes() and $arg =~ s/(\>{1,2})// |
| 700 | 0 | 0 | 0 | $arg and $redirection |
| 0 | 0 | 0 | $arg and $redirection and not $file | |
| 756 | 0 | 0 | 0 | exists $options{'u'} and defined $options{'u'} |
| 819 | 0 | 0 | 0 | $string and $string ne ' ' |
| 870 | 0 | 0 | 0 | exists $args{'p'} and which_shell() eq 'bash' |
| 895 | 0 | 0 | 0 | defined $ARGV[$i] and $ARGV[$i] |
| 915 | 0 | 0 | 0 | exists $args{'p'} and which_shell() eq 'ksh' |
| 934 | 0 | 0 | 0 | exists $args{'u'} and $args{'u'} ne 0 |
| 981 | 0 | 0 | 0 | defined $arg and substr($arg, 0, 1) ne '#' |
| 0 | 0 | 0 | defined $arg and substr($arg, 0, 1) ne '#' and substr($arg, 0, 1) ne ';' | |
| 1004 | 0 | 0 | 0 | defined $level and $level =~ /^\d+$/ |
| 0 | 0 | 0 | defined $level and $level =~ /^\d+$/ and not is_break($level) | |
| 1141 | 0 | 0 | 0 | $from eq '[a-z]' || $from eq '[:lower:]' and $to eq '[A-Z]' || $to eq '[:upper:]' |
| 0 | 0 | 0 | $from eq '[A-Z]' || $from eq '[:upper:]' and $to eq '[a-z]' || $to eq '[:lower:]' | |
| 1192 | 0 | 0 | 0 | $args{'Z'} and defined $args{'Z'} |
| 1270 | 0 | 0 | 0 | $values[$i] =~ /^[\"\']*\$/ and not get_special_var($values[$i]) |
| 1372 | 0 | 0 | 0 | defined $var and substr($var, 0, 1) ne '#' |
| line | l | !l | condition |
|---|---|---|---|
| 876 | 0 | 0 | $1 || 'REPLY' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 84 | 0 | 0 | 0 | $arg =~ /^\d+$/ or $arg =~ /^([\'\"]).*\1$/ |
| 0 | 0 | 0 | $arg =~ /^\d+$/ or $arg =~ /^([\'\"]).*\1$/ or $arg =~ /\[|\*|\?/ | |
| 134 | 0 | 0 | 0 | is_break($func) or $func eq ';' |
| 0 | 0 | 0 | is_break($func) or $func eq ';' or $first_char eq '#' | |
| 235 | 0 | 0 | 0 | $args[$i] =~ /^\d+$/ or $args[$i] =~ /^\".*\"$/ |
| 0 | 0 | 0 | $args[$i] =~ /^\d+$/ or $args[$i] =~ /^\".*\"$/ or $args[$i] =~ /\[|\*|\?/ | |
| 282 | 0 | 0 | 0 | $class eq 'a' or not $class |
| 516 | 0 | 0 | 0 | $value =~ /^\$/ or $value =~ /^([\"\']).*\1/ |
| 678 | 0 | 0 | 0 | is_break($arg) or $arg eq ';' |
| 791 | 0 | 0 | 0 | $types[0][0] eq 'UNKNOWN' or $types[0][0] eq 'SINGLE_DELIMITER' |
| 0 | 0 | 0 | $types[0][0] eq 'UNKNOWN' or $types[0][0] eq 'SINGLE_DELIMITER' or $types[0][0] eq 'TWO_CHAR_DELIMITER' | |
| 863 | 0 | 0 | 0 | is_break($arg) or $arg eq ';' |
| 887 | 0 | 0 | 0 | exists $args{'a'} or exists $args{'A'} |
| 1026 | 0 | 0 | 0 | is_break($option) or $option eq ';' |
| 0 | 0 | 0 | is_break($option) or $option eq ';' or substr($option, 0, 1) eq '#' | |
| 1141 | 0 | 0 | 0 | $from eq '[a-z]' || $from eq '[:lower:]' |
| 0 | 0 | 0 | $to eq '[A-Z]' || $to eq '[:upper:]' | |
| 0 | 0 | 0 | $from eq '[A-Z]' || $from eq '[:upper:]' | |
| 0 | 0 | 0 | $to eq '[a-z]' || $to eq '[:lower:]' | |
| 1237 | 0 | 0 | 0 | $act eq '+' or $act eq '-' |