—package
Zapp::Task::Action::Confirm;
#pod =head1 DESCRIPTION
#pod
#pod The Confirm action prompts a user to click a button to proceed with the run.
#pod
#pod =head1 SEE ALSO
#pod
#pod L<Zapp::Task::Action>
#pod
#pod =cut
sub
run(
$self
,
$task_input
) {
my
$form_input
=
$self
->info->{notes}{input};
# Clicking a button adds the name to the form input
if
(
exists
$form_input
->{confirm} ) {
return
$self
->finish( {
is_success
=> 1 } );
}
return
$self
->fail( {
is_success
=> 0 } );
}
1;
=pod
=head1 NAME
Zapp::Task::Action::Confirm
=head1 VERSION
version 0.005
=head1 DESCRIPTION
The Confirm action prompts a user to click a button to proceed with the run.
=head1 SEE ALSO
L<Zapp::Task::Action>
=head1 AUTHOR
Doug Bell <preaction@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2021 by Doug Bell.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__DATA__
@@ input.html.ep
<%
my $input = stash( 'input' ) // { prompt => 'Are you sure you want to continue?' };
%>
<div class="form-row">
<div class="col-auto">
<label for="prompt">Prompt</label>
%= text_field 'prompt', value => $input->{prompt}, class => 'form-control'
</div>
</div>
@@ action.html.ep
<h3>Confirm</h3>
<p><%= $input->{prompt} %></p>
<button name="confirm" class="btn btn-success">Confirm</button>
<button name="cancel" class="btn btn-danger">Cancel</button>