| 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 | 459 | 7 | 14 | $false_vals and $arg_flag =~ /\A $false_vals \z/msx |
| 605 | 220 | 0 | 18 | $comma and length $constraint |
| 688 | 345 | 136 | 3 | exists $arg->{'var'}{$var}{$type} and exists $excluded_by_def{$var}{$type} |
| 805 | 49 | 1 | 4 | $error =~ /\A [\s\0\1]* ($arg_spec_ref->{'generic_matcher'})/msx and $bad_type |
| 874 | 8 | 0 | 3 | exists $seen_vars{$var_name} and exists $seen_vars{$excluded_var} |
| 917 | 0 | 30 | 228 | ref $entry eq "HASH" and defined $entry->{$var} |
| 30 | 0 | 0 | ref $entry ne "HASH" and defined $entry | |
| 925 | 79 | 244 | 5 | $arg_vars->{'constraint'} and not $arg_vars->{'constraint'}->($val) |
| 941 | 0 | 0 | 0 | $arg_vars->{'constraint'} and not $arg_vars->{'constraint'}->($val) |
| line | l | !l | condition |
|---|---|---|---|
| 438 | 51 | 0 | $more_required || '' |
| 0 | 51 | $required || '' | |
| 444 | 55 | 0 | $more_options || '' |
| 0 | 55 | $options || '' | |
| 449 | 47 | 0 | $more_licence || '' |
| 0 | 47 | $licence || '' | |
| 461 | 171 | 13 | $required || '' |
| 465 | 472 | 9 | $options || '' |
| 507 | 40 | 11 | $req_name || '' |
| 509 | 42 | 9 | $opt_name || '' |
| 1034 | 214 | 133 | $arg->{'var'}{$var_name}{'type'} || '' |
| 1065 | 214 | 133 | $arg->{'var'}{$var_name}{'type'} || '' |
| 1066 | 2 | 345 | $arg->{'var'}{$var_name}{'type_error'} || '' |
| 1176 | 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 =~ />\.\.\./ |
| 598 | 147 | 7 | 8 | $field eq "default" or $field eq "opt_default" |
| 900 | 34 | 1 | 124 | $arg_specs->{'has_default'} or $arg_specs->{'has_opt_default'} |
| 245 | 1 | 158 | exists $ARGV{$arg_name} or ($arg_specs->{'has_default'} or $arg_specs->{'has_opt_default'}) | |
| 957 | 16 | 1 | 13 | exists $arg_vars->{'default'} or exists $arg_vars->{'opt_default'} |