File Coverage

lib/HTTP/ProxyPAC/Result.pm

Criterion	Covered	Total	%
statement	21	22	95.4
branch	3	4	75.0
condition			n/a
subroutine	6	7	85.7
pod	3	4	75.0
total	33	37	89.1

package HTTP::ProxyPAC::Result;
use strict;
use Carp;

sub parse {
    my($class, $string, $url) = @_;
    my @res = split /\s*;\s*/, $string;
    map $class->_parse($_, $url), @res;
}

sub _parse {
    my($class, $string, $url) = @_;

    $string =~ s/^(DIRECT|PROXY|SOCKS)\s*//
        or Carp::croak("Can't parse FindProxyForURL() return value: $string");

    my $self;
    $self->{type} = $1;

    if ($self->{type} ne 'DIRECT') {
        my $proxy = URI->new;
        $proxy->scheme('http');
        $proxy->host_port($string);

        $self->{lc($self->{type})} = $proxy;
    }
    bless $self, $class;
}
sub direct { $_[0]->{type} eq 'DIRECT' }
sub proxy  { $_[0]->{proxy} }
sub socks  { $_[0]->{socks} }
1;
__END__