| line |
true |
false |
branch |
|
227
|
1 |
33 |
if ($conf->{'aliases'})
|
|
240
|
3 |
1 |
if (@args > 2 and ref $args[0] eq 'HASH' and ref $args[1] ne 'ARRAY')
|
|
249
|
14 |
0 |
if not $self->help_package or $self->help_package eq 'Getopt::Alt'
|
|
254
|
3 |
4 |
if (ref $_ and ref $_ eq 'Getopt::Alt::Exception' and $_->help)
|
|
261
|
4 |
0 |
if not $self->help_package or $self->help_package eq 'Getopt::Alt'
|
|
266
|
0 |
8 |
unless defined $self
|
|
268
|
0 |
8 |
wantarray ? :
|
|
274
|
71 |
16 |
$passed_args ? :
|
|
289
|
33 |
61 |
if ($arg =~ /^-- (\w[^=\s]+) (?:= (.*) )?/msx) { }
|
|
|
55 |
6 |
elsif ($arg =~ /^- (\w) =? (.*)/msx) { }
|
|
|
0 |
6 |
elsif ($arg eq '--') { }
|
|
298
|
0 |
0 |
if ($self->auto_complete and $self->opt->auto_complete and path($0)->basename eq path($args[0])->basename)
|
|
304
|
0 |
0 |
if ($self->opt->auto_complete and $self->sub_command and $self->has_auto_complete_shortener)
|
|
315
|
4 |
2 |
$self->sub_command ? :
|
|
319
|
3 |
80 |
if (defined $new_value)
|
|
328
|
0 |
78 |
if ($self->opt->auto_complete and $opt_name eq 'auto_complete_list')
|
|
330
|
0 |
0 |
$EXIT ? :
|
|
334
|
2 |
8 |
if (not $used and $short and defined $arg_data and length $arg_data)
|
|
337
|
0 |
0 |
if ($self->has_conf_section and $self->conf_section and $self->conf_section eq $opt_name and @args_orig)
|
|
354
|
2 |
14 |
if ($_ eq "next\n") { }
|
|
|
4 |
10 |
elsif ($_ eq "last\n") { }
|
|
359
|
0 |
4 |
if ($self->aliases->{$arg})
|
|
368
|
7 |
3 |
if ref $_ eq 'ARRAY' and @$_ == 1
|
|
370
|
0 |
10 |
if ($self->has_auto_complete and $self->opt->auto_complete) { }
|
|
378
|
2 |
82 |
if $action eq 'next'
|
|
379
|
4 |
78 |
if $action eq 'last'
|
|
382
|
4 |
73 |
if ($self->has_sub_command)
|
|
383
|
0 |
4 |
if @{$self->files;} and $self->files->[0] eq '--'
|
|
385
|
0 |
4 |
if (not @{$self->files;} and @args)
|
|
389
|
4 |
0 |
if not $self->cmd and @{$self->files;}
|
|
391
|
13 |
64 |
if (not $passed_args and $self->files)
|
|
395
|
4 |
73 |
if ($self->has_sub_command)
|
|
396
|
3 |
1 |
if (ref $self->sub_command eq 'HASH' and !$self->has_auto_complete || $self->cmd && $self->sub_command->{$self->cmd}) { }
|
|
|
0 |
1 |
elsif ($self->sub_command =~ /^[A-Z].*::$/ and !$self->has_auto_complete || $self->cmd && $self->sub_command->{$self->cmd}) { }
|
|
402
|
0 |
3 |
unless ($self->sub_command->{$self->cmd})
|
|
404
|
0 |
0 |
unless $self->help_package
|
|
411
|
3 |
0 |
if (ref $self->sub_command->{$self->cmd} eq 'ARRAY')
|
|
415
|
2 |
1 |
@$sub == 2 && ref $sub->[0] eq 'HASH' && ref $sub->[1] eq 'ARRAY' ? :
|
|
418
|
2 |
1 |
%$options ? :
|
|
426
|
1 |
2 |
unless $options->{'default'}
|
|
431
|
0 |
3 |
if ($self->opt->auto_complete)
|
|
450
|
11 |
66 |
if ($self->help_package)
|
|
451
|
1 |
10 |
if ($self->opt->{'version'}) { }
|
|
|
1 |
9 |
elsif ($self->opt->{'man'}) { }
|
|
|
1 |
8 |
elsif ($self->opt->{'help'}) { }
|
|
|
0 |
8 |
elsif ($self->auto_complete and $self->opt->auto_complete) { }
|
|
|
0 |
15 |
elsif ($self->sub_command and not $self->cmd) { }
|
|
453
|
1 |
0 |
defined $main::VERSION ? :
|
|
479
|
2 |
2 |
if ($self->sub_command and ref $self->sub_command and not $self->cmd) { }
|
|
|
2 |
0 |
elsif ($ARGV[-1] and $ARGV[-1] =~ /^-/msx) { }
|
|
481
|
2 |
2 |
$cmd ? :
|
|
486
|
14 |
0 |
$cmd ? :
|
|
494
|
0 |
4 |
$EXIT ? :
|
|
508
|
12 |
21 |
if grep {$name eq $_;} 'auto_complete', 'auto-complete', 'auto_complete_list', 'auto-complete-list'
|
|
515
|
6 |
15 |
length $_ == 1 ? :
|
|
523
|
3 |
91 |
if ($has_no and $long)
|
|
532
|
30 |
796 |
if $long and $opt->name eq $long
|
|
535
|
0 |
1440 |
if defined $long and $name eq $long
|
|
536
|
50 |
1390 |
if defined $short and $name eq $short
|
|
540
|
3 |
11 |
if ($long and $long =~ /^\d+$/msx or defined $short and $short =~ /^\d$/msx)
|
|
544
|
3 |
3 |
if $opt->number
|
|
548
|
6 |
5 |
unless $has_no
|
|
550
|
3 |
2 |
if ($self->help_package) { }
|
|
551
|
1 |
2 |
$long ? :
|
|
|
1 |
2 |
$long ? :
|
|
557
|
1 |
1 |
$long ? :
|
|
|
1 |
1 |
$long ? :
|
|
569
|
0 |
6 |
if ($self->help_packages and $self->cmd) { }
|
|
|
6 |
0 |
elsif ($self->help_package and $self->help_package ne '1') { }
|
|
571
|
0 |
0 |
if ($package)
|
|
580
|
6 |
0 |
unless (-f $help)
|
|
588
|
0 |
6 |
$self->help_pre ? :
|
|
591
|
0 |
6 |
$msg ? :
|
|
598
|
0 |
6 |
$self->help_post ? :
|