Help for this page

Select Code to Download


  1. or download this
    package MyApp::URLFetcher::LWP;
use base qw/MyApp::URLFetcher/;
...
    my $url = shift;
    get($url); # our chosen interface is simple with LWP
}
  2. or download this
    package MyApp::URLFetcher::NetFTP;
use base qw/MyApp::URLFetcher/;
...
    # ...
    $f->get("...");
}
  3. or download this
    use UNIVERSAL::require;

...
    }
    die "couldn't load any driver";
}