From 90535df46d0d8b4052497a9dc0beacd8c186066f Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Mon, 17 Dec 2018 00:38:24 +0100
Subject: Use context variable to track singletons

Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 lib/App/ArchLinux/PackagerTools.pm        | 6 +++---
 lib/App/ArchLinux/PackagerTools/CPAN.pm   | 5 ++++-
 lib/App/ArchLinux/PackagerTools/Pacman.pm | 2 +-
 script/perlpkg.pl                         | 3 ++-
 4 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/lib/App/ArchLinux/PackagerTools.pm b/lib/App/ArchLinux/PackagerTools.pm
index a4cd69e..0bd602a 100644
--- a/lib/App/ArchLinux/PackagerTools.pm
+++ b/lib/App/ArchLinux/PackagerTools.pm
@@ -38,9 +38,9 @@ Returns a new instance.
 
 =cut
 method new($class: $deps = {}) {
-	$deps->{config} //= App::ArchLinux::PackagerTools::Config->new();
-	$deps->{cpan} //= App::ArchLinux::PackagerTools::CPAN->new();
-	$deps->{pacman} //= App::ArchLinux::PackagerTools::Pacman->new({$deps->%{cpan}});
+	$deps->{config} //= App::ArchLinux::PackagerTools::Config->new({$deps->%{context}});
+	$deps->{cpan} //= App::ArchLinux::PackagerTools::CPAN->new({$deps->%{context}});
+	$deps->{pacman} //= App::ArchLinux::PackagerTools::Pacman->new({$deps->%{context}});
 	return $class->new_no_defaults($deps);
 }
 
diff --git a/lib/App/ArchLinux/PackagerTools/CPAN.pm b/lib/App/ArchLinux/PackagerTools/CPAN.pm
index 1e1c86c..e7521b6 100644
--- a/lib/App/ArchLinux/PackagerTools/CPAN.pm
+++ b/lib/App/ArchLinux/PackagerTools/CPAN.pm
@@ -38,16 +38,19 @@ Returns a new instance.
 =cut
 
 method new($class: $deps = {}) {
-	$deps->{packages_details_fetcher} //= App::ArchLinux::PackagerTools::CPAN::PackagesDetailsFetcher->new();
+	$deps->{packages_details_fetcher} //= App::ArchLinux::PackagerTools::CPAN::PackagesDetailsFetcher->new({$deps->%{context}});
 	return $class->new_no_defaults($deps);
 }
 
 method new_no_defaults($class: $deps = {}) {
+	return $deps->{context}->{__PACKAGE__} if defined $deps->{context}->{__PACKAGE__};
+
 	my $self = {};
 	bless $self, $class;
 	$self->{deps} = $deps;
 	$self->{dist_lc_map} = {};
 	$self->{dists} = {};
+	$deps->{context}->{__PACKAGE__} = $self;
 	return $self;
 }
 
diff --git a/lib/App/ArchLinux/PackagerTools/Pacman.pm b/lib/App/ArchLinux/PackagerTools/Pacman.pm
index 39c78e5..f541721 100644
--- a/lib/App/ArchLinux/PackagerTools/Pacman.pm
+++ b/lib/App/ArchLinux/PackagerTools/Pacman.pm
@@ -36,7 +36,7 @@ Returns a new instance.
 
 
 method new($class: $deps = {}) {
-	$deps->{cpan} //= App::ArchLinux::PackagerTools::CPAN->new();
+	$deps->{cpan} //= App::ArchLinux::PackagerTools::CPAN->new({$deps->%{context}});
 	$deps->{pkgname_cpan_name_map} //= {
 		# pkgname => cpan_name
 		'perl-critic' => 'Perl::Critic',
diff --git a/script/perlpkg.pl b/script/perlpkg.pl
index e6cac27..f66b9d6 100755
--- a/script/perlpkg.pl
+++ b/script/perlpkg.pl
@@ -48,7 +48,8 @@ if ($ARGV[0] // "" eq "--debug") {
 }
 Log::Any::Adapter->set('Log4perl');
 
-my $app = App::ArchLinux::PackagerTools->new();
+my $context = {};
+my $app = App::ArchLinux::PackagerTools->new({context => $context});
 
 use Data::Dumper;
 my $dists = $app->get_distributions_in_repo();
-- 
cgit v1.2.3-24-g4f1b