Ok I am tired

[Gupta, Sharad]

Hi All,

I am really tired now:

--------------------------------------
package Foo;

use strict;
use LWP::UserAgent;


sub new {
        return bless {},shift;
}


sub Foo::INC {
        my ($self,$filename) = @_;
        my @paths = "http:/me.com";
        my @urls = map{$_ . "/" . [EMAIL PROTECTED];
        my $ua = LWP::UserAgent->new();
        foreach my $url(@urls) {
                my $request    = HTTP::Request->new($url);
                my $response = $ua->request($request);
                if($response->is_success()) {
                        return $response->content();
                }
        }
        return undef;
}
--------------------------------------


What i am trying to do is hook into the @INC so that i can find the modules via http, 
but a simple test like:

--------------
#!/usr/local/bin/perl

BEGIN { push @INC,Foo->new() }
use Bar;
-------------

Cannot find Bar.pm.


Any ideas??.


-Sharad