[PerlCritic] don't use package variable

fperrad · fperrad · commit 729f176f82e4 · 2025-05-04T16:11:50.000+02:00
see https://metacpan.org/pod/Perl::Critic::Policy::Variables::ProhibitPackageVars
diff --git a/perl/gherkin-perl.razor b/perl/gherkin-perl.razor
@@ -35,7 +35,7 @@ use warnings;
 
 use base 'Gherkin::ParserBase';
 
-our %states_to_match_names = (
+my %states_to_match_names = (
     @foreach(var state in Model.States.Values.Where(s => !s.IsEndState)) //..
     {
 @:    @state.Id => "match_token_at_@(state.Id)",
diff --git a/perl/lib/Gherkin/Generated/Parser.pm b/perl/lib/Gherkin/Generated/Parser.pm
@@ -6,7 +6,7 @@ use warnings;
 
 use base 'Gherkin::ParserBase';
 
-our %states_to_match_names = (
+my %states_to_match_names = (
     0 => "match_token_at_0",
     1 => "match_token_at_1",
     2 => "match_token_at_2",

Original file line number	Diff line number	Diff line change
`@@ -35,7 +35,7 @@ use warnings;`
`35`	`35`
`36`	`36`	`use base 'Gherkin::ParserBase';`
`37`	`37`
`38`		`-our %states_to_match_names = (`
	`38`	`+my %states_to_match_names = (`
`39`	`39`	`@foreach(var state in Model.States.Values.Where(s => !s.IsEndState)) //..`
`40`	`40`	`{`
`41`	`41`	`@: @state.Id => "match_token_at_@(state.Id)",`