view release on metacpan or  search on metacpan

t/lib/Apache/test.pm  view on Meta::CPAN

</Perl>

$args{include}
EOF

    return 1;
}

sub _ask {
    # Just a function for asking the user questions
    my ($prompt, $default, $mustfind) = @_;

    my $response;
    do {
	print "$prompt [$default]: ";
	chomp($response = <STDIN>);
	$response ||= $default;
    } until (!$mustfind || (-e $response || !print("$response not found\n")));

    return $response;
}

sub get_test_params {
    my $pkg = shift;