The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use lib 't/lib';
use Test::More qw(no_plan);
use Acme::CPANAuthors;

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

my $count = $authors->count;
ok $count;

my @ids = $authors->id;
ok scalar @ids;

my $ishigaki = $authors->id('ISHIGAKI');
ok $ishigaki;

my @names = $authors->name;
ok scalar @names;

my $name = $authors->name('ISHIGAKI');
ok $name =~ /Ishigaki/i;