my $authors = eval {
local $SIG{__WARN__} = sub {
my ($msg) = @_;
if ($msg =~ /^You're_using CPAN Authors are not registered yet: (.*)/s) {
die $1;
}
my $authors = eval {
local $SIG{__WARN__} = sub {
my ($msg) = @_;
if ($msg =~ /^You're_using CPAN Authors are not registered yet: (.*)/s) {
die $1;
}
my $count = $authors->count;
diag "$count authors found";
cmp_ok $count, '>', 0, 'there are some authors';
my $count = $authors->count;
diag "$count authors found";
cmp_ok $count, '>', 0, 'there are some authors';