use strict; use warnings; use Module::Build; my $builder = Module::Build->new( module_name => 'LWP::UserAgent::ProxyHopper', license => 'perl', dist_author => 'Zoffix Znet ', 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();