#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use vars qw($VERSION);

$VERSION = '0.04';

use Cwd;
use File::Basename;
use Acme::CPANAuthors;

use lib File::Basename::dirname( Cwd::abs_path(__FILE__)) . '/../lib';
use Acme::CPANAuthors::Swedish;

my $authors = Acme::CPANAuthors->new('Swedish');

printf("There are %d swedish CPAN authors:\n", $authors->count);

for my $id($authors->id) {
  printf("  \e[1m%s\e[m\n", $id);
  my @dists = $authors->distributions($id);
  printf("    %s\n",
    @dists
      ? join('    ', map { local $_ = $_->name . "\n" } @dists)
      : '[No distributions]'
    );
}
