HTTP-Command-Wrapper

 view release on metacpan or  search on metacpan

lib/HTTP/Command/Wrapper/Curl.pm  view on Meta::CPAN

package HTTP::Command::Wrapper::Curl;
use strict;
use warnings;
use utf8;

sub new {
    my ($class, $opt) = @_;
    return bless { opt => $opt } => $class;
}

sub fetch_able {
    my ($self, $url, $headers) = @_;

    my $command = $self->_build($headers, 1, [ '--head', qq/"$url"/ ]);
    `$command` =~ m/200 OK/;
}

sub fetch {

lib/HTTP/Command/Wrapper/Wget.pm  view on Meta::CPAN

package HTTP::Command::Wrapper::Wget;
use strict;
use warnings;
use utf8;

sub new {
    my ($class, $opt) = @_;
    return bless { opt => $opt } => $class;
}

sub fetch_able {
    my ($self, $url, $headers) = @_;

    my $command = $self->_build($headers, 1, [ '--server-response', '--spider', qq/"$url"/ ]);
    `$command 2>&1` =~ m/200 OK/;
}

sub fetch {

t/lib/HTTP/Command/Wrapper/Test/Server.pm  view on Meta::CPAN

our @EXPORT = qw/create_test_server/;

sub create_test_server {
	my $server = __PACKAGE__->new;
	$server->run;
	return $server;
}

sub new {
	my $class = shift;
	return bless {} => $class;
}

sub DESTROY {
	my $self = shift;
	delete $self->{server};
}

sub run {
    my $self = shift;
    

 view all matches for this distribution
 view release on metacpan -  search on metacpan