#!/usr/bin/perl -w

use strict;
use lib 'lib';
use Module::Packaged;

my $p = Module::Packaged->new();
my $data = $p->{data};
foreach my $dist (sort keys %$data) {
  my $debian = $data->{$dist}->{debian};
  my $cpan = $data->{$dist}->{cpan};
  next unless defined $debian;
  next if $debian eq $cpan;
  print "$dist $debian on debian ($cpan on cpan)\n";
}