view release on metacpan or  search on metacpan

t/sitemapper.t  view on Meta::CPAN

        my $self = shift;
        my ($robot, $hook_name, $from_url, $to_url) = @_;

        $self->url_parents->{$to_url->path}->{$from_url->path} = 1;

        $self->$orig( $robot, $hook_name, $from_url, $to_url );
    };
};

# We want to be safe from non-resolving local host names
delete $ENV{HTTP_PROXY};
my $d = HTTP::Daemon->new( LocalAddr => 'localhost' ) || die;
my $server_host = $d->url;
my $is_test;
my $STATUS_STORAGE_FILE = "t/status.storage";
my $TEST_TIME = time();
my $W3C_DATETIME = DateTime->from_epoch(
        epoch => $TEST_TIME
)->strftime('%FT%T%z');
$W3C_DATETIME =~ s/(\d{2})$/:$1/;
# for qr