package Devel::CheckNet;

use strict;
use warnings;

our $VERSION = '0.001';

use LWP::UserAgent ();

sub can_http {
  my $self = shift;
  my $url = shift;

  my %ua_options = (
    agent   => 'devel-checknet/' . $VERSION,
    timeout => 10,
    requests_redirectable => [],
    parse_head => 0,
  );
  my $ua = LWP::UserAgent->new();
  my $r = $ua->head( $url );
  return ( !$r->is_error ) ? 1 : 0;
}

1;

__END__

=head1 NAME

Devel::CheckNet - 

=head1 SYNOPSIS

  use Devel::CheckNet ();

  $ok = Devel::CheckNet->can_http( 'http://search.cpan.org/' );