Below is an interesting code snippet that allows us to use the following syntax
use PoCo::Server::HTTP;
PoCo::Server::HTTP->new();
I didn't send it as a patch because I wouldn't know where to put it and I was thinking
perhaps more discussion is needed.
BEGIN {
push @INC, sub {
my $cref = shift;
my $foo = shift;
$foo =~s/PoCo/POE\/Component/;
foreach my $inc (@INC) {
if(-e "$inc/$foo") {
my $fh;
open($fh, "<$inc/$foo") || return 0;
return $fh;
}
}
};
}
@PoCo::Server::HTTP::ISA = qw(POE::Component::Server::HTTP;
Arthur
yes, this is also an announcment for POE::Component::Server::HTTP 0.01, it is on PAUSE
now, CPAN soon, enjoy
