Branch Coverage

blib/lib/Getopt/Complete/Options.pm
Criterion Covered Total %
branch 11 70 15.7


line true false branch
36 0 1 if @_ > 1
40 0 1 if $key eq '<>'
50 0 0 unless defined $name
63 0 2 unless defined $name
78 0 1 unless (defined $name)
82 0 1 if ($handler and not ref $handler)
84 0 0 if ($handler =~ /::/) { }
89 0 0 unless (ref $code)
95 0 0 unless (ref $code)
100 0 0 if (ref $code)
104 0 1 if (substr($name, 0, 1) eq '>')
107 0 0 if (ref $handler eq 'ARRAY') { }
0 0 elsif (ref $handler eq 'CODE' or ref $handler eq 'SCALAR') { }
124 0 1 if ($name eq '<>')
127 0 1 if ($name eq '-')
128 0 0 if ($spec and $spec ne '!')
135 0 1 if ($spec =~ /[\!\+]/ and defined $$completion_handlers{$key})
139 0 1 if (ref $$completion_handlers{$key} eq 'ARRAY' and @{$$completion_handlers{$key};} == 0)
146 0 1 @parse_errors ? :
151 0 0 if ($ENV{'COMP_CWORD'})
153 0 0 unless ($command)
162 0 0 unless ($args->errors)
176 0 0 unless $token
180 0 0 unless $pid
196 0 0 defined $_ ? :
197 0 0 if ($want_new_word)
211 0 0 unless (@left)
218 0 0 if (substr($left, -1) ne ' ' or substr($left, -2) eq '\\ ') { }
226 0 0 @left && $left[-1] =~ /^-{1,2}/ && !($left[-1] =~ /^-{1,2}[\w\-]+\=/) ? :
231 0 0 if ($previous)
234 0 0 if ($spec and $spec =~ /[\!\+]/) { }
0 0 elsif ($name =~ /no-(.*)/) { }
243 0 0 if ($spec and $spec =~ /[\!\+]/)
252 0 0 if ($current =~ /^([\'\"])/)
255 0 0 if (substr($current, -1, 1) eq $quote and not substr($current, -2, 1) eq '\\')