view release on metacpan or  search on metacpan

lib/Acme/CPANAuthors/You/re_using.pm  view on Meta::CPAN

 my $auths = Acme::CPANAuthors::Utils::cpan_authors();
 die 'Couldn\'t retrieve a valid Parse::CPAN::Authors object' unless $auths;

 my %modules;

 File::Find::find({
  wanted => sub {
   return unless /\.pm$/;
   my $mod = do {
    local $@;
    eval { Module::Metadata->new_from_file($_) }
   };
   return unless $mod;
   @modules{grep $_, $mod->packages_inside} = ();
  },
  follow   => 0,
  no_chdir => 1,
 }, @INC);

 for (keys %modules) {
  my $mod = $pkgs->package($_);

t/10-base.t  view on Meta::CPAN

use Test::More;

use Acme::CPANAuthors;

local @INC = grep $_ ne '.', @INC;

diag 'Directories in @INC :';
diag "  $_" for @INC;

my $authors = eval {
 local $SIG{__WARN__} = sub {
  my ($msg) = @_;
  if ($msg =~ /^You're_using CPAN Authors are not registered yet: (.*)/s) {
   die $1;
  }
  diag $_ for @_;
 };
 Acme::CPANAuthors->new("You're_using");
};

t/11-naughty-version.t  view on Meta::CPAN

my $err = do {
 local $SIG{__WARN__} = sub {
  my $msg = join "\n", @_;
  if ($msg =~ /cabbage/) {
   die "$msg\n";
  } else {
   diag $msg;
  }
 };
 eval { Acme::CPANAuthors->new("You're_using") };
 $@;
};

is $test_loaded, 1,  'naughty module was actually loaded';
is $err,         '', 'naughty module did not make us croak';