#525521855

Committed 16 Jun 2026 02:03AM UTC coverage: 76.24% (+0.06%) from 76.177%

Build # #525521855

Build Type

Pull #3220

github

Committed by

web-flow

Commit Message

Merge ccf41d17b into 7a34dc7be

Pull Request Pull Request #3220: Bump JetBrains/qodana-action from 2026.1.0 to 2026.1.3

Coverage Stats

14772 of 22542 branches covered (65.53%)

Branch coverage included in aggregate %.

31111 of 37640 relevant lines covered (82.65%)

0.83 hits per line

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

83.2

/plugin/common/src/main/java/com/perl5/lang/perl/psi/mixins/PerlVariableDeclarationElementMixin.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.psi.mixins;

import com.intellij.lang.ASTNode;
import com.intellij.navigation.ItemPresentation;
import com.intellij.openapi.util.text.StringUtil;
import com.intellij.psi.PsiElement;
import com.intellij.psi.search.LocalSearchScope;
import com.intellij.psi.search.SearchScope;
import com.intellij.psi.tree.IElementType;
import com.intellij.util.IncorrectOperationException;
import com.perl5.lang.perl.idea.codeInsight.typeInference.value.PerlScalarValue;
import com.perl5.lang.perl.idea.codeInsight.typeInference.value.PerlValue;
import com.perl5.lang.perl.idea.presentations.PerlItemPresentationSimpleDynamicLocation;
import com.perl5.lang.perl.psi.*;
import com.perl5.lang.perl.psi.properties.PerlLexicalScope;
import com.perl5.lang.perl.psi.stubs.variables.PerlVariableDeclarationStub;
import com.perl5.lang.perl.psi.utils.PerlPsiUtil;
import com.perl5.lang.perl.psi.utils.PerlVariableAnnotations;
import com.perl5.lang.perl.psi.utils.PerlVariableType;
import com.perl5.lang.perl.util.PerlPackageUtilCore;
import org.jetbrains.annotations.NotNull;
import org.jetbrains.annotations.Nullable;

import javax.swing.*;
import java.util.Objects;

import static com.perl5.lang.perl.idea.codeInsight.typeInference.value.PerlValues.UNKNOWN_VALUE;

/**
 * Stubbed wrapper for variables declarations
 */
public class PerlVariableDeclarationElementMixin extends PerlStubBasedPsiElementBase<PerlVariableDeclarationStub>
  implements PerlVariableDeclarationElement {
  public PerlVariableDeclarationElementMixin(ASTNode node) {
    super(node);
  }

  public PerlVariableDeclarationElementMixin(@NotNull PerlVariableDeclarationStub stub, @NotNull IElementType nodeType) {
    super(stub, nodeType);
  }

  @Override
  public @NotNull PerlVariable getVariable() {
    return Objects.requireNonNull(findChildByClass(PerlVariable.class), () -> "Unable to find variable in: " + getText());
  }

  @Override
  public @Nullable PsiElement getNameIdentifier() {
    return getVariable().getVariableNameElement();
  }


  @Override
  public String getVariableName() {
    return getName();
  }

  @Override
  public String getName() {
    PerlVariableDeclarationStub stub = getGreenStub();
    if (stub != null) {
      return stub.getVariableName();
    }
    return getVariable().getName();
  }

  @Override
  public PsiElement setName(@NotNull String name) throws IncorrectOperationException {
    PerlPsiUtil.renameNamedElement(this, name);
    return this;
  }

  @Override
  public int getTextOffset() {
    PsiElement nameIdentifier = getNameIdentifier();

    return nameIdentifier == null
           ? super.getTextOffset()
           : nameIdentifier.getTextOffset();
  }

  @Override
  public @Nullable String getExplicitNamespaceName() {
    return getVariable().getExplicitNamespaceName();
  }

  @Override
  public @NotNull PerlValue getDeclaredValue() {
    PerlValue valueFromAnnotations = PerlVariableDeclarationElement.super.getDeclaredValue();
    if (!valueFromAnnotations.isUnknown()) {
      return valueFromAnnotations;
    }
    return getPsiDeclaredValue();
  }

  public @NotNull PerlValue getPsiDeclaredValue() {
    PerlVariableDeclarationStub stub = getGreenStub();
    if (stub != null) {
      return stub.getDeclaredValue();
    }
    PerlVariableDeclarationExpr declaration = getDeclarationExpression();
    return declaration == null ? UNKNOWN_VALUE :
           PerlScalarValue.create(declaration.getDeclarationType());
  }

  @Override
  public @NotNull String getNamespaceName() {
    PerlVariableDeclarationStub stub = getGreenStub();
    if (stub != null) {
      return stub.getNamespaceName();
    }
    String qualifierName = getVariable().getExplicitNamespaceName();
    if (StringUtil.isNotEmpty(qualifierName)) {
      return qualifierName;
    }
    return PerlPackageUtilCore.getContextNamespaceName(getVariable());
  }

  @Override
  public PerlVariableType getActualType() {
    PerlVariableDeclarationStub stub = getGreenStub();
    if (stub != null) {
      return stub.getActualType();
    }
    return getVariable().getActualType();
  }

  @Override
  public @NotNull SearchScope getUseScope() {
    if (isLexicalDeclaration()) {
      PsiElement lexicalScope = PerlLexicalScope.from(this);
      if (lexicalScope instanceof PerlSubDefinition) {
        lexicalScope = getContainingFile();
      }
      else if (lexicalScope instanceof PerlForeachCompound) {
        lexicalScope = PerlLexicalScope.from(lexicalScope);
      }
      if (lexicalScope != null) {
        return new LocalSearchScope(lexicalScope);
      }
    }

    return super.getUseScope();
  }

  @Override
  public boolean isLexicalDeclaration() {
    if (getGreenStub() != null) {
      return false;
    }
    PsiElement parent = getParent();
    return parent instanceof PerlLexicalVariableDeclarationMarker ||
           isInvocantDeclaration() || isLocalDeclaration();
  }

  @Override
  public boolean isInvocantDeclaration() {
    return getParent() instanceof PsiPerlMethodSignatureInvocant;
  }

  @Override
  public boolean isLocalDeclaration() {
    return getParent() instanceof PsiPerlVariableDeclarationLocal;
  }

  @Override
  public boolean isGlobalDeclaration() {
    return !isLexicalDeclaration();
  }

  @Override
  public ItemPresentation getPresentation() {
    return new PerlItemPresentationSimpleDynamicLocation(this, getName());
  }


  @Override
  public @Nullable Icon getIcon(int flags) {
    Icon iconByType = getIconByType(getActualType());
    return iconByType == null ? super.getIcon(flags) : iconByType;
  }

  @Override
  public @Nullable PerlVariableAnnotations getVariableAnnotations() {
    PerlVariableAnnotations variableAnnotations;

    PerlVariableDeclarationStub stub = getGreenStub();
    variableAnnotations = stub != null ? stub.getVariableAnnotations() : getLocalVariableAnnotations();

    if (!variableAnnotations.isEmpty()) {
      return variableAnnotations;
    }

    return null;
  }

  @Override
  public @NotNull PerlVariableAnnotations getLocalVariableAnnotations() {
    return PerlVariableAnnotations.from(this);
  }
}

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.psi.mixins;
18
19	import com.intellij.lang.ASTNode;
20	import com.intellij.navigation.ItemPresentation;
21	import com.intellij.openapi.util.text.StringUtil;
22	import com.intellij.psi.PsiElement;
23	import com.intellij.psi.search.LocalSearchScope;
24	import com.intellij.psi.search.SearchScope;
25	import com.intellij.psi.tree.IElementType;
26	import com.intellij.util.IncorrectOperationException;
27	import com.perl5.lang.perl.idea.codeInsight.typeInference.value.PerlScalarValue;
28	import com.perl5.lang.perl.idea.codeInsight.typeInference.value.PerlValue;
29	import com.perl5.lang.perl.idea.presentations.PerlItemPresentationSimpleDynamicLocation;
30	import com.perl5.lang.perl.psi.*;
31	import com.perl5.lang.perl.psi.properties.PerlLexicalScope;
32	import com.perl5.lang.perl.psi.stubs.variables.PerlVariableDeclarationStub;
33	import com.perl5.lang.perl.psi.utils.PerlPsiUtil;
34	import com.perl5.lang.perl.psi.utils.PerlVariableAnnotations;
35	import com.perl5.lang.perl.psi.utils.PerlVariableType;
36	import com.perl5.lang.perl.util.PerlPackageUtilCore;
37	import org.jetbrains.annotations.NotNull;
38	import org.jetbrains.annotations.Nullable;
39
40	import javax.swing.*;
41	import java.util.Objects;
42
43	import static com.perl5.lang.perl.idea.codeInsight.typeInference.value.PerlValues.UNKNOWN_VALUE;
44
45	/**
46	* Stubbed wrapper for variables declarations
47	*/
48	public class PerlVariableDeclarationElementMixin extends PerlStubBasedPsiElementBase<PerlVariableDeclarationStub>
49	implements PerlVariableDeclarationElement {
50	public PerlVariableDeclarationElementMixin(ASTNode node) {
51	super(node);	1✔
52	}	1✔
53
54	public PerlVariableDeclarationElementMixin(@NotNull PerlVariableDeclarationStub stub, @NotNull IElementType nodeType) {
55	super(stub, nodeType);	1✔
56	}	1✔
57
58	@Override
59	public @NotNull PerlVariable getVariable() {
60	return Objects.requireNonNull(findChildByClass(PerlVariable.class), () -> "Unable to find variable in: " + getText());	1!
61	}
62
63	@Override
64	public @Nullable PsiElement getNameIdentifier() {
65	return getVariable().getVariableNameElement();	1✔
66	}
67
68
69	@Override
70	public String getVariableName() {
71	return getName();	1✔
72	}
73
74	@Override
75	public String getName() {
76	PerlVariableDeclarationStub stub = getGreenStub();	1✔
77	if (stub != null) {	1✔
78	return stub.getVariableName();	1✔
79	}
80	return getVariable().getName();	1✔
81	}
82
83	@Override
84	public PsiElement setName(@NotNull String name) throws IncorrectOperationException {
85	PerlPsiUtil.renameNamedElement(this, name);	1✔
86	return this;	1✔
87	}
88
89	@Override
90	public int getTextOffset() {
91	PsiElement nameIdentifier = getNameIdentifier();	1✔
92
93	return nameIdentifier == null	1!
94	? super.getTextOffset()	×
95	: nameIdentifier.getTextOffset();	1✔
96	}
97
98	@Override
99	public @Nullable String getExplicitNamespaceName() {
100	return getVariable().getExplicitNamespaceName();	×
101	}
102
103	@Override
104	public @NotNull PerlValue getDeclaredValue() {
105	PerlValue valueFromAnnotations = PerlVariableDeclarationElement.super.getDeclaredValue();	1✔
106	if (!valueFromAnnotations.isUnknown()) {	1✔
107	return valueFromAnnotations;	1!
108	}
109	return getPsiDeclaredValue();	1!
110	}
111
112	public @NotNull PerlValue getPsiDeclaredValue() {
113	PerlVariableDeclarationStub stub = getGreenStub();	1✔
114	if (stub != null) {	1!
115	return stub.getDeclaredValue();	×
116	}
117	PerlVariableDeclarationExpr declaration = getDeclarationExpression();	1✔
118	return declaration == null ? UNKNOWN_VALUE :	1!
119	PerlScalarValue.create(declaration.getDeclarationType());	1✔
120	}
121
122	@Override
123	public @NotNull String getNamespaceName() {
124	PerlVariableDeclarationStub stub = getGreenStub();	1✔
125	if (stub != null) {	1✔
126	return stub.getNamespaceName();	1!
127	}
128	String qualifierName = getVariable().getExplicitNamespaceName();	1✔
129	if (StringUtil.isNotEmpty(qualifierName)) {	1!
130	return qualifierName;	×
131	}
132	return PerlPackageUtilCore.getContextNamespaceName(getVariable());	1!
133	}
134
135	@Override
136	public PerlVariableType getActualType() {
137	PerlVariableDeclarationStub stub = getGreenStub();	1✔
138	if (stub != null) {	1✔
139	return stub.getActualType();	1✔
140	}
141	return getVariable().getActualType();	1✔
142	}
143
144	@Override
145	public @NotNull SearchScope getUseScope() {
146	if (isLexicalDeclaration()) {	1✔
147	PsiElement lexicalScope = PerlLexicalScope.from(this);	1✔
148	if (lexicalScope instanceof PerlSubDefinition) {	1✔
149	lexicalScope = getContainingFile();	1✔
150	}
151	else if (lexicalScope instanceof PerlForeachCompound) {	1✔
152	lexicalScope = PerlLexicalScope.from(lexicalScope);	1✔
153	}
154	if (lexicalScope != null) {	1!
155	return new LocalSearchScope(lexicalScope);	1✔
156	}
157	}
158
159	return super.getUseScope();	1!
160	}
161
162	@Override
163	public boolean isLexicalDeclaration() {
164	if (getGreenStub() != null) {	1✔
165	return false;	1✔
166	}
167	PsiElement parent = getParent();	1✔
168	return parent instanceof PerlLexicalVariableDeclarationMarker \|\|	1✔
169	isInvocantDeclaration() \|\| isLocalDeclaration();	1✔
170	}
171
172	@Override
173	public boolean isInvocantDeclaration() {
174	return getParent() instanceof PsiPerlMethodSignatureInvocant;	1✔
175	}
176
177	@Override
178	public boolean isLocalDeclaration() {
179	return getParent() instanceof PsiPerlVariableDeclarationLocal;	1✔
180	}
181
182	@Override
183	public boolean isGlobalDeclaration() {
184	return !isLexicalDeclaration();	1✔
185	}
186
187	@Override
188	public ItemPresentation getPresentation() {
189	return new PerlItemPresentationSimpleDynamicLocation(this, getName());	1✔
190	}
191
192
193	@Override
194	public @Nullable Icon getIcon(int flags) {
195	Icon iconByType = getIconByType(getActualType());	1✔
196	return iconByType == null ? super.getIcon(flags) : iconByType;	1!
197	}
198
199	@Override
200	public @Nullable PerlVariableAnnotations getVariableAnnotations() {
201	PerlVariableAnnotations variableAnnotations;
202
203	PerlVariableDeclarationStub stub = getGreenStub();	1✔
204	variableAnnotations = stub != null ? stub.getVariableAnnotations() : getLocalVariableAnnotations();	1✔
205
206	if (!variableAnnotations.isEmpty()) {	1✔
207	return variableAnnotations;	1✔
208	}
209
210	return null;	1✔
211	}
212
213	@Override
214	public @NotNull PerlVariableAnnotations getLocalVariableAnnotations() {
215	return PerlVariableAnnotations.from(this);	1!
216	}
217	}

Camelcade / Perl5-IDEA / #525521855

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