#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
use Mojo::Base 'Zapp::Task::Action', -signatures;
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>