Branch Coverage

blib/lib/Open/This.pm
Criterion Covered Total %
branch 95 112 84.8


line true false branch
30 42 0 if ($text)
35 42 0 if ($text)
39 0 42 unless $text
44 5 37 if $col
50 23 19 if (-e path($text)) { }
1 18 elsif (my $file_name = _maybe_git_diff_path($text)) { }
2 16 elsif ($text =~ m[^[^/]+\.go$]) { }
58 1 1 if $file_name
61 17 25 unless (exists $parsed{'file_name'})
62 1 16 if (my $bin = _which($text))
70 4 38 if (not $parsed{'file_name'} and $text =~ m[\Ahttps?://]i)
74 7 5 if (not $parsed{'file_name'} and $parsed{'is_module_name'})
80 4 5 if (not $parsed{'file_name'} and $parsed{'is_module_name'})
82 2 2 if ($found)
87 23 19 unless ($parsed{'line_number'})
95 153 57 if defined $parsed{$_}
97 35 7 $return{'file_name'} ? :
109 0 0 if ($err)
115 0 0 unless $parsed and $parsed->{'file_name'}
118 0 0 unless $url and $url->can("host")
128 0 0 if ($parsed->{'line_number'})
142 1 17 unless $parsed
147 3 14 if ($ENV{'EDITOR'} eq 'kate') { }
2 12 elsif (exists $parsed->{'column_number'}) { }
149 2 1 if $parsed->{'line_number'}
152 1 2 if $parsed->{'column_number'}
160 1 1 if ($ENV{'EDITOR'} eq "nvim" or $ENV{'EDITOR'} eq "vi" or $ENV{'EDITOR'} eq "vim")
171 1 1 if ($ENV{'EDITOR'} eq "nano")
187 7 5 if $parsed->{'line_number'}
197 4 49 if ($$text =~ s/ line (\d+).*, column (\d+).*//)
204 7 42 if ($$text =~ s/ line (\d+).*//)
210 1 41 if ($$text =~ s/ (\w) : \[ (\d+) , (\d+) \] /$1/x)
216 5 36 if ($$text =~ s/(\w):(\d+):(\d+).*/$1/)
222 6 30 if ($$text =~ s/(\w):(\d+)\b/$1/)
229 5 25 if ($$text =~ s/(\w)#L(\d+)\b.*/$1/)
235 2 23 if ($$text =~ s/(\w)-(\d+)\-{0,1}\z/$1/)
246 4 38 if ($$text =~ /'(.*)'/)
248 4 0 if -e $maybe_file
255 9 37 if ($$text =~ s/::(\w+)\(.*\)//)
265 5 12 if ($file_name and $sub_name and open my $fh, "<", $file_name)
268 5 16 if ($line =~ /sub $sub_name\b/)
285 4 0 if ($parts[3] eq "blob")
288 0 4 unless $file->is_file
292 0 4 if ($uri->fragment and $uri->fragment =~ /\A[\d]\z/)
295 4 0 if $file
305 2 7 exists $ENV{'OPEN_THIS_LIBS'} ? :
309 5 12 if ($path->is_file)
319 3 16 if ($file_name =~ m[^[ab]/(.+)$])
320 1 2 if (-e path($1))
332 0 20 unless $maybe_file
338 9 11 if $dir
343 2 69 if $abs->is_file
357 83 179 unless $path->is_file
358 1 178 if $path->basename eq $text
360 1 178 if --$threshold == 0
362 1 2 if ($threshold == 0 and not $file_name)