| blib/lib/Getopt/Euclid.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 58 | 80 | 72.5 |
| line | l | !l | condition |
|---|---|---|---|
| 106 | 6 | 5 | /:minimal_keys/ && ($minimal_keys = 1) |
| 108 | 1 | 3 | /:defer/ && ($defer = 1) |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 107 | 4 | 0 | 2 | /:vars(?:<(\w+)>)?/ && ($vars_prefix = $1 || 'ARGV_') |
| 289 | 460 | 7 | 14 | $false_vals and $arg_flag =~ /\A $false_vals \z/msx |
| 607 | 216 | 0 | 18 | $comma and length $constraint |
| 690 | 345 | 136 | 3 | exists $$arg{'var'}{$var}{$type} and exists $excluded_by_def{$var}{$type} |
| 807 | 29 | 5 | 0 | $error =~ /\A [\s\0\1]* ($$arg_spec_ref{'generic_matcher'})/msx and $bad_type |
| 876 | 10 | 0 | 3 | exists $seen_vars{$var_name} and exists $seen_vars{$excluded_var} |
| 919 | 0 | 29 | 229 | ref $entry eq 'HASH' and defined $$entry{$var} |
| 29 | 0 | 0 | ref $entry ne 'HASH' and defined $entry | |
| 927 | 77 | 247 | 5 | $$arg_vars{'constraint'} and not $$arg_vars{'constraint'}($val) |
| 943 | 0 | 0 | 0 | $$arg_vars{'constraint'} and not $$arg_vars{'constraint'}($val) |
| line | l | !l | condition |
|---|---|---|---|
| 440 | 51 | 0 | $more_required || '' |
| 0 | 51 | $required || '' | |
| 446 | 55 | 0 | $more_options || '' |
| 0 | 55 | $options || '' | |
| 451 | 47 | 0 | $more_licence || '' |
| 0 | 47 | $licence || '' | |
| 463 | 171 | 13 | $required || '' |
| 467 | 472 | 9 | $options || '' |
| 509 | 40 | 11 | $req_name || '' |
| 511 | 42 | 9 | $opt_name || '' |
| 1037 | 214 | 133 | $$arg{'var'}{$var_name}{'type'} || '' |
| 1069 | 214 | 133 | $$arg{'var'}{$var_name}{'type'} || '' |
| 1070 | 2 | 345 | $$arg{'var'}{$var_name}{'type_error'} || '' |
| 1180 | 0 | 45 | $Exporter::ExportLevel || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 99 | 0 | 0 | 0 | $has_run or $^C |
| 316 | 2 | 1 | 14 | $$arg_info{'is_repeatable'} or $arg_name =~ />\.\.\./ |
| 600 | 145 | 8 | 8 | $field eq 'default' or $field eq 'opt_default' |
| 900 | 34 | 1 | 117 | $$arg_specs{'has_default'} or $$arg_specs{'has_opt_default'} |
| 240 | 0 | 152 | exists $ARGV{$arg_name} or ($$arg_specs{'has_default'} or $$arg_specs{'has_opt_default'}) | |
| 958 | 16 | 0 | 13 | exists $$arg_vars{'default'} or exists $$arg_vars{'opt_default'} |