1package TestWorkflowActivityWithException; 2 3use warnings; 4use strict; 5use base qw( OpenXPKI::Server::Workflow::Activity ); 6 7use OpenXPKI::Exception; 8 9sub execute { 10 my ($self, $workflow) = @_; 11 if ($TestWorkflowResume::trigger_exception) { 12 OpenXPKI::Exception->throw( 13 message => 'Something went terribly wrong', 14 params => { face => 'sad', }, 15 ); 16 } 17} 18 191; 20