package Foo::Bar::UrlHandler;

sub new($proto, %config) {
    my $class = ref($proto) || $proto;

    if(!defined($config{url})) {
        # No URL given, don't know what to do next
        return;
    }
    
    if($config{url} =~ /^http\:/) {
        return Foo::Bar::UrlHandler::HTTP->new();
    } elsif($config{url} =~ /^file\:/) {
        return Foo::Bar::UrlHandler::FILE->new();
    }

    # Invalid URL?
    return;
}