package main;

use 5.008;

use strict;
use warnings;

use Test::More 0.88;	# Because of done_testing();

BEGIN {
    local $@ = undef;
    eval {
	require Test::Pod::LinkCheck::Lite;
	Test::Pod::LinkCheck::Lite->import( ':const' );
	1;
    } or plan skip_all => 'Unable to load Test::Pod::LinkCheck::Lite';
}

Test::Pod::LinkCheck::Lite->new(
    prohibit_redirect	=> sub {
	my ( undef, undef, $url ) = @_;
	'http://datetime.perl.org/' eq $url
	    and return;
	return ALLOW_REDIRECT_TO_INDEX;
    },
)->all_pod_files_ok();

done_testing;

1;

# ex: set textwidth=72 :
