#525521819

Committed 12 Apr 2026 11:03AM UTC coverage: 76.189% (+0.1%) from 76.061%

Build # #525521819

Build Type

push

github

Committed by

hurricup

Commit Message

[qodana] Suppressed a warning on the api method

Coverage Stats

14764 of 22542 branches covered (65.5%)

Branch coverage included in aggregate %.

31091 of 37644 relevant lines covered (82.59%)

0.83 hits per line

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

82.76

/plugin/common/src/main/java/com/perl5/lang/perl/internals/warnings/PerlWarningTree.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.internals.warnings;

import java.util.HashMap;
import java.util.List;
import java.util.Map;

/**
 * taken from regen/warnings.pl, up to date with origin/maint-5.22
 */
@SuppressWarnings("unused")
public class PerlWarningTree {
  public static final PerlWarningTreeNode TREE = new PerlWarningTreeNode(
    5.008, "all", List.of(
    new PerlWarningTreeNode(5.008, "io", List.of(
      new PerlWarningTreeLeaf(5.008, "pipe"),
      new PerlWarningTreeLeaf(5.008, "unopened"),
      new PerlWarningTreeLeaf(5.008, "closed"),
      new PerlWarningTreeLeaf(5.008, "newline"),
      new PerlWarningTreeLeaf(5.008, "exec"),
      new PerlWarningTreeLeaf(5.008, "layer"),

      new PerlWarningTreeLeaf(5.019, "syscalls")
    )),

    new PerlWarningTreeNode(5.008, "syntax", List.of(
      new PerlWarningTreeLeaf(5.008, "ambiguous"),
      new PerlWarningTreeLeaf(5.008, "semicolon"),
      new PerlWarningTreeLeaf(5.008, "precedence"),
      new PerlWarningTreeLeaf(5.008, "bareword"),
      new PerlWarningTreeLeaf(5.008, "reserved"),
      new PerlWarningTreeLeaf(5.008, "digit"),
      new PerlWarningTreeLeaf(5.008, "parenthesis"),
      new PerlWarningTreeLeaf(5.008, "printf"),
      new PerlWarningTreeLeaf(5.008, "prototype"),
      new PerlWarningTreeLeaf(5.008, "qw"),

      new PerlWarningTreeLeaf(5.011, "illegalproto")
    )),

    new PerlWarningTreeNode(5.008, "severe", List.of(
      new PerlWarningTreeLeaf(5.008, "inplace"),
      new PerlWarningTreeLeaf(5.008, "internal"),
      new PerlWarningTreeLeaf(5.008, "debugging"),
      new PerlWarningTreeLeaf(5.008, "malloc")
    )),

    new PerlWarningTreeLeaf(5.008, "deprecated"),
    new PerlWarningTreeLeaf(5.008, "void"),
    new PerlWarningTreeLeaf(5.008, "recursion"),
    new PerlWarningTreeLeaf(5.008, "redefine"),
    new PerlWarningTreeLeaf(5.008, "numeric"),
    new PerlWarningTreeLeaf(5.008, "uninitialized"),
    new PerlWarningTreeLeaf(5.008, "once"),
    new PerlWarningTreeLeaf(5.008, "misc"),
    new PerlWarningTreeLeaf(5.008, "regexp"),
    new PerlWarningTreeLeaf(5.008, "glob"),
    new PerlWarningTreeLeaf(5.008, "untie"),
    new PerlWarningTreeLeaf(5.008, "substr"),
    new PerlWarningTreeLeaf(5.008, "taint"),
    new PerlWarningTreeLeaf(5.008, "signal"),
    new PerlWarningTreeLeaf(5.008, "closure"),
    new PerlWarningTreeLeaf(5.008, "overflow"),
    new PerlWarningTreeLeaf(5.008, "portable"),

    new PerlWarningTreeNode(5.008, "utf8", List.of(
      new PerlWarningTreeLeaf(5.013, "surrogate"),
      new PerlWarningTreeLeaf(5.013, "nonchar"),
      new PerlWarningTreeLeaf(5.013, "non_unicode")
    )),

    new PerlWarningTreeLeaf(5.008, "exiting"),
    new PerlWarningTreeLeaf(5.008, "pack"),
    new PerlWarningTreeLeaf(5.008, "unpack"),
    new PerlWarningTreeLeaf(5.008, "threads"),

    new PerlWarningTreeLeaf(5.011, "imprecision"),

    new PerlWarningTreeNode(5.017, "experimental", List.of(
      new PerlWarningTreeLeaf(5.017, "experimental::lexical_subs"),
      new PerlWarningTreeLeaf(5.017, "experimental::regex_sets"),
      new PerlWarningTreeLeaf(5.017, "experimental::lexical_topic"),
      new PerlWarningTreeLeaf(5.017, "experimental::smartmatch"),

      new PerlWarningTreeLeaf(5.019, "experimental::postderef"),
      new PerlWarningTreeLeaf(5.019, "experimental::autoderef"),
      new PerlWarningTreeLeaf(5.019, "experimental::signatures"),

      new PerlWarningTreeLeaf(5.021, "experimental::win32_perlio"),
      new PerlWarningTreeLeaf(5.021, "experimental::refaliasing"),
      new PerlWarningTreeLeaf(5.021, "experimental::re_strict"),
      new PerlWarningTreeLeaf(5.021, "experimental::const_attr"),
      new PerlWarningTreeLeaf(5.021, "experimental::bitwise")
    )),

    new PerlWarningTreeLeaf(5.021, "missing"),
    new PerlWarningTreeLeaf(5.021, "redundant"),
    new PerlWarningTreeLeaf(5.021, "locale")
  ));

  public static final Map<String, PerlWarningTreeLeaf> LEAF_OPTIONS;
  public static final Map<String, PerlWarningTreeNode> NODE_OPTIONS;

  static {
    LEAF_OPTIONS = new HashMap<>();

    for (PerlWarningTreeLeaf leaf : TREE.collectChildLeafs()) {
      if (LEAF_OPTIONS.containsKey(leaf.getStringIdentifier())) {
        throw new RuntimeException("Duplicate warnings tree leaf element: " + leaf.getStringIdentifier());
      }
      else {
        LEAF_OPTIONS.put(leaf.getStringIdentifier(), leaf);
      }
    }
  }

  static {
    NODE_OPTIONS = new HashMap<>();

    for (PerlWarningTreeNode node : TREE.collectChildNodes()) {
      if (NODE_OPTIONS.containsKey(node.getStringIdentifier())) {
        throw new RuntimeException("Duplicate warnings tree node element: " + node.getStringIdentifier());
      }
      else {
        NODE_OPTIONS.put(node.getStringIdentifier(), node);
      }
    }
  }
}

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.internals.warnings;
18
19	import java.util.HashMap;
20	import java.util.List;
21	import java.util.Map;
22
23	/**
24	* taken from regen/warnings.pl, up to date with origin/maint-5.22
25	*/
26	@SuppressWarnings("unused")
27	public class PerlWarningTree {	×
28	public static final PerlWarningTreeNode TREE = new PerlWarningTreeNode(	1✔
29	5.008, "all", List.of(	1✔
30	new PerlWarningTreeNode(5.008, "io", List.of(	1✔
31	new PerlWarningTreeLeaf(5.008, "pipe"),
32	new PerlWarningTreeLeaf(5.008, "unopened"),
33	new PerlWarningTreeLeaf(5.008, "closed"),
34	new PerlWarningTreeLeaf(5.008, "newline"),
35	new PerlWarningTreeLeaf(5.008, "exec"),
36	new PerlWarningTreeLeaf(5.008, "layer"),
37
38	new PerlWarningTreeLeaf(5.019, "syscalls")
39	)),
40
41	new PerlWarningTreeNode(5.008, "syntax", List.of(	1✔
42	new PerlWarningTreeLeaf(5.008, "ambiguous"),
43	new PerlWarningTreeLeaf(5.008, "semicolon"),
44	new PerlWarningTreeLeaf(5.008, "precedence"),
45	new PerlWarningTreeLeaf(5.008, "bareword"),
46	new PerlWarningTreeLeaf(5.008, "reserved"),
47	new PerlWarningTreeLeaf(5.008, "digit"),
48	new PerlWarningTreeLeaf(5.008, "parenthesis"),
49	new PerlWarningTreeLeaf(5.008, "printf"),
50	new PerlWarningTreeLeaf(5.008, "prototype"),
51	new PerlWarningTreeLeaf(5.008, "qw"),
52
53	new PerlWarningTreeLeaf(5.011, "illegalproto")
54	)),
55
56	new PerlWarningTreeNode(5.008, "severe", List.of(	1✔
57	new PerlWarningTreeLeaf(5.008, "inplace"),
58	new PerlWarningTreeLeaf(5.008, "internal"),
59	new PerlWarningTreeLeaf(5.008, "debugging"),
60	new PerlWarningTreeLeaf(5.008, "malloc")
61	)),
62
63	new PerlWarningTreeLeaf(5.008, "deprecated"),
64	new PerlWarningTreeLeaf(5.008, "void"),
65	new PerlWarningTreeLeaf(5.008, "recursion"),
66	new PerlWarningTreeLeaf(5.008, "redefine"),
67	new PerlWarningTreeLeaf(5.008, "numeric"),
68	new PerlWarningTreeLeaf(5.008, "uninitialized"),
69	new PerlWarningTreeLeaf(5.008, "once"),
70	new PerlWarningTreeLeaf(5.008, "misc"),
71	new PerlWarningTreeLeaf(5.008, "regexp"),
72	new PerlWarningTreeLeaf(5.008, "glob"),
73	new PerlWarningTreeLeaf(5.008, "untie"),
74	new PerlWarningTreeLeaf(5.008, "substr"),
75	new PerlWarningTreeLeaf(5.008, "taint"),
76	new PerlWarningTreeLeaf(5.008, "signal"),
77	new PerlWarningTreeLeaf(5.008, "closure"),
78	new PerlWarningTreeLeaf(5.008, "overflow"),
79	new PerlWarningTreeLeaf(5.008, "portable"),
80
81	new PerlWarningTreeNode(5.008, "utf8", List.of(	1✔
82	new PerlWarningTreeLeaf(5.013, "surrogate"),
83	new PerlWarningTreeLeaf(5.013, "nonchar"),
84	new PerlWarningTreeLeaf(5.013, "non_unicode")
85	)),
86
87	new PerlWarningTreeLeaf(5.008, "exiting"),
88	new PerlWarningTreeLeaf(5.008, "pack"),
89	new PerlWarningTreeLeaf(5.008, "unpack"),
90	new PerlWarningTreeLeaf(5.008, "threads"),
91
92	new PerlWarningTreeLeaf(5.011, "imprecision"),
93
94	new PerlWarningTreeNode(5.017, "experimental", List.of(	1✔
95	new PerlWarningTreeLeaf(5.017, "experimental::lexical_subs"),
96	new PerlWarningTreeLeaf(5.017, "experimental::regex_sets"),
97	new PerlWarningTreeLeaf(5.017, "experimental::lexical_topic"),
98	new PerlWarningTreeLeaf(5.017, "experimental::smartmatch"),
99
100	new PerlWarningTreeLeaf(5.019, "experimental::postderef"),
101	new PerlWarningTreeLeaf(5.019, "experimental::autoderef"),
102	new PerlWarningTreeLeaf(5.019, "experimental::signatures"),
103
104	new PerlWarningTreeLeaf(5.021, "experimental::win32_perlio"),
105	new PerlWarningTreeLeaf(5.021, "experimental::refaliasing"),
106	new PerlWarningTreeLeaf(5.021, "experimental::re_strict"),
107	new PerlWarningTreeLeaf(5.021, "experimental::const_attr"),
108	new PerlWarningTreeLeaf(5.021, "experimental::bitwise")
109	)),
110
111	new PerlWarningTreeLeaf(5.021, "missing"),
112	new PerlWarningTreeLeaf(5.021, "redundant"),
113	new PerlWarningTreeLeaf(5.021, "locale")
114	));
115
116	public static final Map<String, PerlWarningTreeLeaf> LEAF_OPTIONS;
117	public static final Map<String, PerlWarningTreeNode> NODE_OPTIONS;
118
119	static {
120	LEAF_OPTIONS = new HashMap<>();	1✔
121
122	for (PerlWarningTreeLeaf leaf : TREE.collectChildLeafs()) {	1✔
123	if (LEAF_OPTIONS.containsKey(leaf.getStringIdentifier())) {	1!
124	throw new RuntimeException("Duplicate warnings tree leaf element: " + leaf.getStringIdentifier());	×
125	}
126	else {
127	LEAF_OPTIONS.put(leaf.getStringIdentifier(), leaf);	1✔
128	}
129	}	1✔
130	}
131
132	static {
133	NODE_OPTIONS = new HashMap<>();	1✔
134
135	for (PerlWarningTreeNode node : TREE.collectChildNodes()) {	1✔
136	if (NODE_OPTIONS.containsKey(node.getStringIdentifier())) {	1!
137	throw new RuntimeException("Duplicate warnings tree node element: " + node.getStringIdentifier());	×
138	}
139	else {
140	NODE_OPTIONS.put(node.getStringIdentifier(), node);	1✔
141	}
142	}	1✔
143	}	1✔
144	}

Camelcade / Perl5-IDEA / #525521819

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