#525521553

Committed 27 May 2025 10:24AM UTC coverage: 82.286% (-0.03%) from 82.32%

Build # #525521553

Build Type

push

github

Committed by

hurricup

Commit Message

Removed redundant implementations, moved up to the abstract class

Run Details

1 of 1 new or added line in 1 file covered. (100.0%)

128 existing lines in 30 files now uncovered.

30886 of 37535 relevant lines covered (82.29%)

0.82 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

96.3

/plugin/core/src/main/java/com/perl5/lang/perl/idea/configuration/settings/PerlSharedSettings.java

/*
 * Copyright 2015-2025 Alexandr Evstigneev
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

package com.perl5.lang.perl.idea.configuration.settings;

import com.intellij.codeInsight.daemon.DaemonCodeAnalyzer;
import com.intellij.openapi.components.PersistentStateComponent;
import com.intellij.openapi.components.Service;
import com.intellij.openapi.components.State;
import com.intellij.openapi.components.Storage;
import com.intellij.openapi.project.Project;
import com.intellij.openapi.util.ClearableLazyValue;
import com.intellij.psi.PsiElement;
import com.intellij.psi.PsiManager;
import com.intellij.util.containers.ContainerUtil;
import com.intellij.util.xmlb.XmlSerializerUtil;
import com.intellij.util.xmlb.annotations.Tag;
import com.intellij.util.xmlb.annotations.Transient;
import com.perl5.lang.perl.idea.PerlPathMacros;
import com.perl5.lang.perl.internals.PerlVersion;
import org.jetbrains.annotations.Contract;
import org.jetbrains.annotations.NotNull;
import org.jetbrains.annotations.Nullable;

import java.util.ArrayList;
import java.util.HashSet;
import java.util.List;
import java.util.Set;

import static com.perl5.lang.perl.idea.configuration.settings.PerlStrictWarningsDefaults.*;
import static com.perl5.lang.perl.util.PerlScalarUtil.DEFAULT_SELF_NAME;
import static com.perl5.lang.perl.util.PerlUtil.mutableList;


@Service(Service.Level.PROJECT)
@State(
  name = "Perl5Settings",
  storages = @Storage(PerlPathMacros.PERL5_PROJECT_SHARED_SETTINGS_FILE)

)
public final class PerlSharedSettings implements PersistentStateComponent<PerlSharedSettings> {
  public List<String> selfNames = mutableList(DEFAULT_SELF_NAME, "this", "class", "proto");

  private final List<String> myWarningsProviders = new ArrayList<>();

  private final List<String> myStrictProviders = new ArrayList<>();

  public boolean SIMPLE_MAIN_RESOLUTION = true;
  public boolean AUTOMATIC_HEREDOC_INJECTIONS = true;
  public boolean ALLOW_INJECTIONS_WITH_INTERPOLATION = false;
  public boolean PERL_CRITIC_ENABLED = false;
  public boolean PERL_ANNOTATOR_ENABLED = false;
  public String PERL_DEPARSE_ARGUMENTS = "";
  public String PERL_TIDY_ARGS = "";
  public String PERL_CRITIC_ARGS = "";
  public boolean PERL_SWITCH_ENABLED = false;
  private PerlVersion myTargetPerlVersion = PerlVersion.V5_10;

  @Transient
  private Set<String> SELF_NAMES_SET = null;

  private final ClearableLazyValue<Set<String>> myWarningsProvidersSet = ClearableLazyValue.create(() -> Set.copyOf(myWarningsProviders));
  private final ClearableLazyValue<Set<String>> myStrictProvidersSet = ClearableLazyValue.create(() -> Set.copyOf(myStrictProviders));

  @Transient
  private final Project myProject;

  @SuppressWarnings("unused")
  private PerlSharedSettings() {
    this(null);
  }

  public PerlSharedSettings(Project project) {
    myProject = project;
    setWarningsProviders(ContainerUtil.concat(DEFAULT_STRICT_AND_WARNINGS_PROVIDERS, DEFAULT_WARNINGS_ONLY_PROVIDERS));
    setStrictProviders(ContainerUtil.concat(DEFAULT_STRICT_AND_WARNINGS_PROVIDERS, DEFAULT_STRICT_ONLY_PROVIDERS));
  }

  @Override
  public @NotNull PerlSharedSettings getState() {
    return this;
  }

  @Override
  public void loadState(@NotNull PerlSharedSettings state) {
    XmlSerializerUtil.copyBean(state, this);
  }

  public @NotNull PerlVersion getTargetPerlVersion() {
    return myTargetPerlVersion;
  }

  public @NotNull PerlSharedSettings setTargetPerlVersion(@NotNull PerlVersion targetPerlVersion) {
    myTargetPerlVersion = targetPerlVersion;
    return this;
  }

  public void settingsUpdated() {
    SELF_NAMES_SET = null;
    PsiManager.getInstance(myProject).dropResolveCaches();
    DaemonCodeAnalyzer.getInstance(myProject).restart();
  }

  public boolean isSelfName(String name) {
    if (SELF_NAMES_SET == null) {
      SELF_NAMES_SET = new HashSet<>(selfNames);
    }
    return SELF_NAMES_SET.contains(name);
  }

  public void setStrictProviders(@NotNull List<String> strictProviders) {
    myStrictProviders.clear();
    myStrictProviders.addAll(ContainerUtil.sorted(strictProviders));
    myStrictProvidersSet.drop();
  }

  @Contract("null->false")
  public boolean isStrictProvider(@Nullable String packageName) {
    return packageName != null && myStrictProvidersSet.getValue().contains(packageName);
  }

  public void setWarningsProviders(@NotNull List<String> warningsProviders) {
    myWarningsProviders.clear();
    myWarningsProviders.addAll(ContainerUtil.sorted(warningsProviders));
    myWarningsProvidersSet.drop();
  }

  @Contract("null->false")
  public boolean isWarningsProvider(@Nullable String packageName) {
    return packageName != null && myWarningsProvidersSet.getValue().contains(packageName);
  }

  public void setDeparseOptions(String optionsString) {
    while (!optionsString.isEmpty() && optionsString.charAt(0) != '-') {
      optionsString = optionsString.substring(1);
    }
    PERL_DEPARSE_ARGUMENTS = optionsString;
  }

  public static @NotNull PerlSharedSettings getInstance(@NotNull Project project) {
    return project.getService(PerlSharedSettings.class);
  }

  public static @NotNull PerlSharedSettings getInstance(@NotNull PsiElement psiElement) {
    return getInstance(psiElement.getProject());
  }

  @Tag("WARNING_PROVIDERS")
  public @NotNull List<String> getWarningsProviders() {
    return List.copyOf(myWarningsProviders);
  }

  @Tag("STRICT_PROVIDERS")
  public @NotNull List<String> getStrictProviders() {
    return List.copyOf(myStrictProviders);
  }
}

1	/*
2	* Copyright 2015-2025 Alexandr Evstigneev
3	*
4	* Licensed under the Apache License, Version 2.0 (the "License");
5	* you may not use this file except in compliance with the License.
6	* You may obtain a copy of the License at
7	*
8	* http://www.apache.org/licenses/LICENSE-2.0
9	*
10	* Unless required by applicable law or agreed to in writing, software
11	* distributed under the License is distributed on an "AS IS" BASIS,
12	* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13	* See the License for the specific language governing permissions and
14	* limitations under the License.
15	*/
16
17	package com.perl5.lang.perl.idea.configuration.settings;
18
19	import com.intellij.codeInsight.daemon.DaemonCodeAnalyzer;
20	import com.intellij.openapi.components.PersistentStateComponent;
21	import com.intellij.openapi.components.Service;
22	import com.intellij.openapi.components.State;
23	import com.intellij.openapi.components.Storage;
24	import com.intellij.openapi.project.Project;
25	import com.intellij.openapi.util.ClearableLazyValue;
26	import com.intellij.psi.PsiElement;
27	import com.intellij.psi.PsiManager;
28	import com.intellij.util.containers.ContainerUtil;
29	import com.intellij.util.xmlb.XmlSerializerUtil;
30	import com.intellij.util.xmlb.annotations.Tag;
31	import com.intellij.util.xmlb.annotations.Transient;
32	import com.perl5.lang.perl.idea.PerlPathMacros;
33	import com.perl5.lang.perl.internals.PerlVersion;
34	import org.jetbrains.annotations.Contract;
35	import org.jetbrains.annotations.NotNull;
36	import org.jetbrains.annotations.Nullable;
37
38	import java.util.ArrayList;
39	import java.util.HashSet;
40	import java.util.List;
41	import java.util.Set;
42
43	import static com.perl5.lang.perl.idea.configuration.settings.PerlStrictWarningsDefaults.*;
44	import static com.perl5.lang.perl.util.PerlScalarUtil.DEFAULT_SELF_NAME;
45	import static com.perl5.lang.perl.util.PerlUtil.mutableList;
46
47
48	@Service(Service.Level.PROJECT)
49	@State(
50	name = "Perl5Settings",
51	storages = @Storage(PerlPathMacros.PERL5_PROJECT_SHARED_SETTINGS_FILE)
52
53	)
54	public final class PerlSharedSettings implements PersistentStateComponent<PerlSharedSettings> {
55	public List<String> selfNames = mutableList(DEFAULT_SELF_NAME, "this", "class", "proto");	1✔
56
57	private final List<String> myWarningsProviders = new ArrayList<>();	1✔
58
59	private final List<String> myStrictProviders = new ArrayList<>();	1✔
60
61	public boolean SIMPLE_MAIN_RESOLUTION = true;	1✔
62	public boolean AUTOMATIC_HEREDOC_INJECTIONS = true;	1✔
63	public boolean ALLOW_INJECTIONS_WITH_INTERPOLATION = false;	1✔
64	public boolean PERL_CRITIC_ENABLED = false;	1✔
65	public boolean PERL_ANNOTATOR_ENABLED = false;	1✔
66	public String PERL_DEPARSE_ARGUMENTS = "";	1✔
67	public String PERL_TIDY_ARGS = "";	1✔
68	public String PERL_CRITIC_ARGS = "";	1✔
69	public boolean PERL_SWITCH_ENABLED = false;	1✔
70	private PerlVersion myTargetPerlVersion = PerlVersion.V5_10;	1✔
71
72	@Transient	1✔
73	private Set<String> SELF_NAMES_SET = null;
74
75	private final ClearableLazyValue<Set<String>> myWarningsProvidersSet = ClearableLazyValue.create(() -> Set.copyOf(myWarningsProviders));	1✔
76	private final ClearableLazyValue<Set<String>> myStrictProvidersSet = ClearableLazyValue.create(() -> Set.copyOf(myStrictProviders));	1✔
77
78	@Transient
79	private final Project myProject;
80
81	@SuppressWarnings("unused")
82	private PerlSharedSettings() {
83	this(null);	1✔
84	}	1✔
85
86	public PerlSharedSettings(Project project) {	1✔
87	myProject = project;	1✔
88	setWarningsProviders(ContainerUtil.concat(DEFAULT_STRICT_AND_WARNINGS_PROVIDERS, DEFAULT_WARNINGS_ONLY_PROVIDERS));	1✔
89	setStrictProviders(ContainerUtil.concat(DEFAULT_STRICT_AND_WARNINGS_PROVIDERS, DEFAULT_STRICT_ONLY_PROVIDERS));	1✔
90	}	1✔
91
92	@Override
93	public @NotNull PerlSharedSettings getState() {
UNCOV 94	return this;	×
95	}
96
97	@Override
98	public void loadState(@NotNull PerlSharedSettings state) {
99	XmlSerializerUtil.copyBean(state, this);	1✔
100	}	1✔
101
102	public @NotNull PerlVersion getTargetPerlVersion() {
103	return myTargetPerlVersion;	1✔
104	}
105
106	public @NotNull PerlSharedSettings setTargetPerlVersion(@NotNull PerlVersion targetPerlVersion) {
107	myTargetPerlVersion = targetPerlVersion;	1✔
108	return this;	1✔
109	}
110
111	public void settingsUpdated() {
112	SELF_NAMES_SET = null;	1✔
113	PsiManager.getInstance(myProject).dropResolveCaches();	1✔
114	DaemonCodeAnalyzer.getInstance(myProject).restart();	1✔
115	}	1✔
116
117	public boolean isSelfName(String name) {
118	if (SELF_NAMES_SET == null) {	1✔
119	SELF_NAMES_SET = new HashSet<>(selfNames);	1✔
120	}
121	return SELF_NAMES_SET.contains(name);	1✔
122	}
123
124	public void setStrictProviders(@NotNull List<String> strictProviders) {
125	myStrictProviders.clear();	1✔
126	myStrictProviders.addAll(ContainerUtil.sorted(strictProviders));	1✔
127	myStrictProvidersSet.drop();	1✔
128	}	1✔
129
130	@Contract("null->false")
131	public boolean isStrictProvider(@Nullable String packageName) {
132	return packageName != null && myStrictProvidersSet.getValue().contains(packageName);	1✔
133	}
134
135	public void setWarningsProviders(@NotNull List<String> warningsProviders) {
136	myWarningsProviders.clear();	1✔
137	myWarningsProviders.addAll(ContainerUtil.sorted(warningsProviders));	1✔
138	myWarningsProvidersSet.drop();	1✔
139	}	1✔
140
141	@Contract("null->false")
142	public boolean isWarningsProvider(@Nullable String packageName) {
143	return packageName != null && myWarningsProvidersSet.getValue().contains(packageName);	1✔
144	}
145
146	public void setDeparseOptions(String optionsString) {
147	while (!optionsString.isEmpty() && optionsString.charAt(0) != '-') {	1✔
UNCOV 148	optionsString = optionsString.substring(1);	×
149	}
150	PERL_DEPARSE_ARGUMENTS = optionsString;	1✔
151	}	1✔
152
153	public static @NotNull PerlSharedSettings getInstance(@NotNull Project project) {
154	return project.getService(PerlSharedSettings.class);	1✔
155	}
156
157	public static @NotNull PerlSharedSettings getInstance(@NotNull PsiElement psiElement) {
158	return getInstance(psiElement.getProject());	1✔
159	}
160
161	@Tag("WARNING_PROVIDERS")
162	public @NotNull List<String> getWarningsProviders() {
163	return List.copyOf(myWarningsProviders);	1✔
164	}
165
166	@Tag("STRICT_PROVIDERS")
167	public @NotNull List<String> getStrictProviders() {
168	return List.copyOf(myStrictProviders);	1✔
169	}
170	}

Camelcade / Perl5-IDEA / #525521553

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous