HTMLRequests.pm

package HTMLRequests;


# ============[ Demande de page web de manière asynchrone ]============ #
#  Date : 02/05/2011                                                    #
#  Auteur : TC                                                          #
# ===================================================================== #

use strict;
use warnings;

use LWP::UserAgent;
use HTML::Entities;
use Encode;
use IO::Uncompress::Gunzip;

use IO::Pipe;



# ###
#  new
# Constructeur de la classe
# ###
sub new
{
	my $class = shift;
	my $self = {
		_pipes     => {},
		_conn      => (shift || undef),
	};

	bless $self, $class;

	return $self;
} # Fin new


# ###
#  pipes
# Accesseur pour les pipes enregistrés
# ###
sub pipes
{
	my $self = shift;

	return $self->{"_pipes"};
} # Fin pipes


# ###
#  conn
# Accesseur de la connexion à irc
# ###
sub conn
{
	my $self = shift;

	$self->{"_conn"} = $_[0] if(@_);
	return $self->{"_conn"};
} # Fin conn


# ###
#  irc
# Accesseur du module irc
# ###
sub irc
{
	my $self = shift;