#525521824

Committed 24 Apr 2026 06:38PM UTC coverage: 76.187% (+0.2%) from 75.952%

Build # #525521824

Build Type

push

github

Committed by

hurricup

Commit Message

Pass a disposable to Registry.get to revert it in the end

Coverage Stats

14757 of 22542 branches covered (65.46%)

Branch coverage included in aggregate %.

31096 of 37643 relevant lines covered (82.61%)

0.83 hits per line

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

76.67

/plugin/debugger/src/main/java/com/perl5/lang/perl/debugger/values/PerlXValueGroup.java

/*
 * Copyright 2015-2026 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.debugger.values;

import com.intellij.xdebugger.frame.XCompositeNode;
import com.intellij.xdebugger.frame.XValueChildrenList;
import com.intellij.xdebugger.frame.XValueGroup;
import com.perl5.lang.perl.debugger.PerlStackFrame;
import com.perl5.lang.perl.debugger.protocol.PerlValueDescriptor;
import org.jetbrains.annotations.NotNull;
import org.jetbrains.annotations.Nullable;

import javax.swing.*;


public class PerlXValueGroup extends XValueGroup {
  private final @NotNull PerlStackFrame myStackFrame;
  private final String myComment;
  private final Icon myIcon;
  private final PerlValueDescriptor[] myVariables;
  private final boolean myIsAutoExpand;

  public PerlXValueGroup(@NotNull String name,
                         String comment,
                         Icon icon,
                         PerlValueDescriptor[] variables,
                         @NotNull PerlStackFrame stackFrame,
                         boolean isAutoExpand) {
    super(name);
    myComment = comment;
    myIcon = icon;
    myVariables = variables;
    myStackFrame = stackFrame;
    myIsAutoExpand = isAutoExpand;
  }

  @Override
  public boolean isAutoExpand() {
    return myIsAutoExpand;
  }

  @Override
  public void computeChildren(@NotNull XCompositeNode node) {
    if (myVariables.length == 0) {
      super.computeChildren(node);
    }
    else {
      XValueChildrenList list = new XValueChildrenList();
      for (PerlValueDescriptor descriptor : myVariables) {
        list.add(new PerlXNamedValue(descriptor, myStackFrame));
      }
      node.setAlreadySorted(true);
      node.addChildren(list, true);
    }
  }

  @Override
  public @Nullable Icon getIcon() {
    return myIcon;
  }

  @Override
  public @Nullable String getComment() {
    return myComment;
  }

  public final @NotNull PerlStackFrame getStackFrame() {
    return myStackFrame;
  }

  @SuppressWarnings("unused")
  public PerlValueDescriptor[] getVariables() {
    return myVariables;
  }

  protected int getSize() {
    return myVariables.length;
  }

  @Override
  public @NotNull String getName() {
    return super.getName() + "(" + getSize() + ")";
  }
}

1	/*
2	* Copyright 2015-2026 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.debugger.values;
18
19	import com.intellij.xdebugger.frame.XCompositeNode;
20	import com.intellij.xdebugger.frame.XValueChildrenList;
21	import com.intellij.xdebugger.frame.XValueGroup;
22	import com.perl5.lang.perl.debugger.PerlStackFrame;
23	import com.perl5.lang.perl.debugger.protocol.PerlValueDescriptor;
24	import org.jetbrains.annotations.NotNull;
25	import org.jetbrains.annotations.Nullable;
26
27	import javax.swing.*;
28
29
30	public class PerlXValueGroup extends XValueGroup {
31	private final @NotNull PerlStackFrame myStackFrame;
32	private final String myComment;
33	private final Icon myIcon;
34	private final PerlValueDescriptor[] myVariables;
35	private final boolean myIsAutoExpand;
36
37	public PerlXValueGroup(@NotNull String name,
38	String comment,
39	Icon icon,
40	PerlValueDescriptor[] variables,
41	@NotNull PerlStackFrame stackFrame,
42	boolean isAutoExpand) {
43	super(name);	1✔
44	myComment = comment;	1✔
45	myIcon = icon;	1✔
46	myVariables = variables;	1✔
47	myStackFrame = stackFrame;	1✔
48	myIsAutoExpand = isAutoExpand;	1✔
49	}	1✔
50
51	@Override
52	public boolean isAutoExpand() {
53	return myIsAutoExpand;	1✔
54	}
55
56	@Override
57	public void computeChildren(@NotNull XCompositeNode node) {
58	if (myVariables.length == 0) {	1!
59	super.computeChildren(node);	×
60	}
61	else {
62	XValueChildrenList list = new XValueChildrenList();	1✔
63	for (PerlValueDescriptor descriptor : myVariables) {	1✔
64	list.add(new PerlXNamedValue(descriptor, myStackFrame));	1✔
65	}
66	node.setAlreadySorted(true);	1✔
67	node.addChildren(list, true);	1✔
68	}
69	}	1✔
70
71	@Override
72	public @Nullable Icon getIcon() {
73	return myIcon;	1✔
74	}
75
76	@Override
77	public @Nullable String getComment() {
78	return myComment;	1✔
79	}
80
81	public final @NotNull PerlStackFrame getStackFrame() {
82	return myStackFrame;	×
83	}
84
85	@SuppressWarnings("unused")
86	public PerlValueDescriptor[] getVariables() {
87	return myVariables;	×
88	}
89
90	protected int getSize() {
91	return myVariables.length;	1✔
92	}
93
94	@Override
95	public @NotNull String getName() {
96	return super.getName() + "(" + getSize() + ")";	1!
97	}
98	}

Camelcade / Perl5-IDEA / #525521824

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