| blib/lib/Getopt/Euclid.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 61 | 80 | 76.2 |
| 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 | 221 | 0 | 18 | $comma and length $constraint |
| 690 | 345 | 136 | 3 | exists $arg->{'var'}{$var}{$type} and exists $excluded_by_def{$var}{$type} |
| 807 | 51 | 1 | 4 | $error =~ /\A [\s\0\1]* ($arg_spec_ref->{'generic_matcher'})/msx and $bad_type |
| 876 | 8 | 0 | 3 | exists $seen_vars{$var_name} and exists $seen_vars{$excluded_var} |
| 919 | 0 | 29 | 230 | ref $entry eq "HASH" and defined $entry->{$var} |
| 29 | 0 | 0 | ref $entry ne "HASH" and defined $entry | |
| 927 | 81 | 244 | 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 | 147 | 8 | 8 | $field eq "default" or $field eq "opt_default" |
| 902 | 34 | 1 | 123 | $arg_specs->{'has_default'} or $arg_specs->{'has_opt_default'} |
| 248 | 1 | 157 | exists $ARGV{$arg_name} or ($arg_specs->{'has_default'} or $arg_specs->{'has_opt_default'}) | |
| 959 | 16 | 1 | 12 | exists $arg_vars->{'default'} or exists $arg_vars->{'opt_default'} |