aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xlib/Fripost/Prompt.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/Fripost/Prompt.pm b/lib/Fripost/Prompt.pm
index 0a9d5c6..d90d42d 100755
--- a/lib/Fripost/Prompt.pm
+++ b/lib/Fripost/Prompt.pm
@@ -17,9 +17,15 @@ use Exporter;
use IO::Prompt;
use String::MkPasswd qw/mkpasswd/;
-our @EXPORT = qw(confirm_or_abort fix_username prompt_email prompt_password);
+our @EXPORT = qw(confirm confirm_or_abort fix_username prompt_email prompt_password);
our @ISA = qw(Exporter);
+sub confirm {
+ my ($msg) = @_;
+ $msg //= "Is this OK? [no will abort] ";
+ return prompt $msg, -ynt;
+}
+
sub confirm_or_abort {
my ($msg) = @_;
$msg //= "Is this OK? [no will abort] ";