}
sub calculate () {
+ foreach my $p (sort keys %packagemap) {
+ print STDERR "$self: package $p in $packagemap{$p}\n" if $verbose>=2;
+ }
foreach my $mf (keys %manifests) {
my $toml = $manifests{$mf};
foreach my $k (qw(dependencies build-dependencies dev-dependencies)) {