| line |
true |
false |
branch |
|
126
|
0 |
0 |
if (-e Cwd::cwd() . $env{'PathSeparator'} . '.wrangler.json') |
|
132
|
0 |
0 |
unless ($path) |
|
134
|
0 |
0 |
if $path |
|
135
|
0 |
0 |
if ($path) |
|
141
|
0 |
0 |
unless ($path) |
|
143
|
0 |
0 |
if ($env{'HostOS'} eq 'Linux') { } |
|
|
0 |
0 |
elsif ($env{'HostOS'} eq 'Windows') { } |
|
|
0 |
0 |
elsif ($env{'HostOS'} eq 'Mac') { } |
|
152
|
0 |
0 |
if ($path) |
|
158
|
0 |
0 |
if ($path and -f $path) { } |
|
160
|
0 |
0 |
unless my $json = path($path)->slurp_utf8 |
|
162
|
0 |
0 |
if $@ |
|
173
|
0 |
0 |
unless $settings{'ui.main.width'} and $settings{'ui.main.width'} > 30 |
|
174
|
0 |
0 |
unless $settings{'ui.main.height'} and $settings{'ui.main.height'} > 30 |
|
175
|
0 |
0 |
unless $settings{'ui.filebrowser.columns'} |
|
179
|
0 |
0 |
if ($_[1]) |
|
180
|
0 |
0 |
unless (defined $settings{$_[1]}) |
|
182
|
0 |
0 |
unless $_[2] |
|
184
|
0 |
0 |
unless $_[2] |
|
192
|
0 |
0 |
unless ($digest) |
|
197
|
0 |
0 |
if (Digest::MD5::md5(Data::Dumper::Dumper(\%settings)) eq $digest) { } |
|
201
|
0 |
0 |
if ($env{'config.file.location'} eq 'working-dir') { } |
|
205
|
0 |
0 |
unless (-d $path) |
|
206
|
0 |
0 |
unless mkdir $path |
|
209
|
0 |
0 |
unless (-d $path) |
|
210
|
0 |
0 |
unless mkdir $path |
|
218
|
0 |
0 |
if $@ |
|
220
|
0 |
0 |
unless path($path)->spew_utf8($json) |