The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Module::Build;

my $builder = Module::Build->new(
    module_name         => 'LWP::UserAgent::ProxyHopper',
    license             => 'perl',
    dist_author         => 'Zoffix Znet <zoffix@cpan.org>',
    dist_version_from   => 'lib/LWP/UserAgent/ProxyHopper.pm',
    build_requires => {
        'Test::More' => 0,
    },
    requires => {
        'LWP::UserAgent'                    => 2.036,
        'LWP::UserAgent::ProxyHopper::Base' => 0.002,
    },
    add_to_cleanup      => [ 'LWP-UserAgent-ProxyHopper-*' ],
    create_makefile_pl => 'traditional',
);

my $t = $builder->prompt(
"\n\n\nThis test includes a run-through test, it might take a long time "
. "(20 secs - 5 minutes). Running it will not fail the test-suite at all but"
. " prints some debug info which I would love to examine to make the module better"
. ". If you chose to run the run-through test then, please, can you email "
. "the output to cpan\@zoffix.com. Thank you.\n\n"
. "Would you like to run the run-through test? [Y/n]:", 'y'
);

if ( 'y' eq lc $t ) {
    open my $TOUCH, '>', 'lwp_ua_proxify_do_thorough_testing'
        or warn "Failed to create a test file `do_thorough_testing` ($!)";

    close $TOUCH;
}
else {
    unlink 'lwp_ua_proxify_do_thorough_testing';
}
$builder->create_build_script();