use Acme::CPANAuthors;
my $authors = eval {
- local $SIG{__WARN__} = sub { die @_ };
+ local $SIG{__WARN__} = sub {
+ my ($msg) = @_;
+ if ($msg =~ /^You're_using CPAN Authors are not registered yet: (.*)/s) {
+ die $1;
+ }
+ CORE::warn(@_);
+ };
Acme::CPANAuthors->new("You're_using");
};
is $authors->name('???'), undef, 'wrong name';
is $authors->name('VPIT'), 'Vincent Pit', 'we should at least have this module';
isnt $authors->name('ISHIGAKI'), undef, 'we should at least have Acme::CPANAuthors\' author';
-isnt $authors->name('LBROCARD'), undef, 'we should at least have Parse::CPAN::* author';
+isnt $authors->name('GAAS'), undef, 'we should at least have LWP\'s author';