view release on metacpan or  search on metacpan

lib/AxKit2/Test.pm  view on Meta::CPAN

}

sub stop_server {
    $server->shutdown();
    undef $server;
}

sub http_get {
    my ($url) = @_;
    $url = "http://localhost:$server_port$url" if $url !~ m/^[a-z0-9]{1,6}:/i;
    my $req = new HTTP::Request(GET => $url);
    return ($req, $ua->request($req));
}

sub plan {
    my $builder = __PACKAGE__->builder;
    return $builder->plan(@_);
}

sub skip {
    my $builder = __PACKAGE__->builder;