view release on metacpan or  search on metacpan

xt/author/pod_link.t  view on Meta::CPAN

  diag "checking lib instead of blib";
}

my $dir = path('~/.xor/cache');
$dir->mkpath;
$dir->chmod(0700);
my $ua = HTTP::Tiny::Mech->new(
  mechua => WWW::Mechanize::Cached->new(
    cache => CHI->new(
      # keep cache around for 24hrs
      expires_in => 60*60*24,
      driver     => 'File',
      root_dir   => $dir->stringify,
    ),
  ),
);

my $mock1 = mock 'Test::Pod::LinkCheck::Lite' => (
  override => [
    _user_agent => sub { $ua },
  ],