enforce that importers can run only once

LibreCat · Oct 18, 2018 · 8633dd5 · 8633dd5
1 parent 909a5c5
commit 8633dd5
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/lib/Catmandu/Importer.pm b/lib/Catmandu/Importer.pm
@@ -20,9 +20,13 @@ with 'Catmandu::Serializer';
 around generator => sub {
     my ($orig, $self) = @_;
 
-    return sub {} if $self->{_gen_created};
+    # importers can run only once
+    # TODO turn this into a role
+    state $exhausted = sub {};
 
-    $self->{_gen_created} = 1;
+    return $exhausted if $self->{__exhausted};
+
+    $self->{__exhausted} = 1;
 
     my $generator = $orig->($self);