refact(Comic): state variable for better encapsulation

robertwenner · Jul 10, 2024 · ed79ca2 · ed79ca2
1 parent e269de6
commit ed79ca2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Comic.pm b/lib/Comic.pm
@@ -71,8 +71,6 @@ Reads a comic as an Inkscape SVG file and serves as a value object for the comic
 # XPath default namespace name.
 Readonly my $DEFAULT_NAMESPACE => 'defNs';
 
-my %language_code_cache;
-
 
 =head1 SUBROUTINES/METHODS
 
@@ -824,6 +822,8 @@ used in this Comic.
 sub language_codes {
     my ($self) = @_;
 
+    CORE::state %language_code_cache;
+
     my %codes;
     LANG: foreach my $lang ($self->languages()) {
         if ($language_code_cache{$lang}) {