summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/App/ArchLinux/PackagerTools.pm6
-rw-r--r--lib/App/ArchLinux/PackagerTools/CPAN.pm5
-rw-r--r--lib/App/ArchLinux/PackagerTools/Pacman.pm2
-rwxr-xr-xscript/perlpkg.pl3
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();