use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in);

sub line_ja_nein($;$$$) {
	my ( $prompt, $flag, $prev, $template ) = @_;

	unless (
		defined(
			my $antwort = line_in( "$prompt? ", $flag, $prev, $template )
		)
	  )
	{
		undef;
	}
	elsif ( defined $antwort && $antwort =~ /^[jy]/i ) { 1 }
	else                                               { '' }
}

1
