File Coverage

blib/lib/HTTP/Proxy/Builder.pm

Criterion	Covered	Total	%
statement	27	37	72.9
branch	2	8	25.0
condition	4	8	50.0
subroutine	7	9	77.7
pod	2	2	100.0
total	42	64	65.6

package HTTP::Proxy::Builder;

use strict;
use warnings;
our $VERSION = 0.01;

use File::Spec;
use HTTP::Proxy;

use Carp;
use Exporter;
our @ISA    = qw( Exporter );
our @EXPORT = qw( $proxy &proxy_load &proxy_abort );

my $abort = 0;

our $proxy;

$SIG{__DIE__} = sub {
    die @_ if $^S;
    $abort++;
};

sub import {
    my ($class) = @_;

    # there's only one thing in the import list that interests us
    $_[$_] eq 'no_start' && splice( @_, $_, 1 ) && $abort++ for 0 .. @_ - 1;

    # we let Exporter handle the rest
    $class->export_to_level( 1, @_ );

    # setup the proxy
    if ( !$proxy ) {
        my @args;

        # get our parameters from @ARGV
        if ( grep { $_ eq '--' } @ARGV ) {
            push @args, shift @ARGV while @ARGV && $ARGV[0] ne '--';
            shift @ARGV;    # get rid of the delimiter
        }
        else {
            @args = @ARGV;
            @ARGV = ();
        }

        # create the  proxy
        $proxy = HTTP::Proxy->new(@args);
    }
}

sub proxy_load {
    my @proxies = @_;

    for my $file (@proxies) {

        $file = File::Spec->rel2abs($file);

        # do file -- potentially dangerous
        my $return = do $file;
        carp "Couldn't parse $file: $@" if $@;
        carp "Couldn't do $file: $!"    if !defined $return;
    }
}

sub proxy_abort { $abort++ }

END { $proxy->start() if $proxy && !$abort; }

1;

__END__