Validad::Tools::RunService
package Validad::Tools::RunService; use 5.018; use Module::Runtime qw(use_module); sub run { my ( $runclass, $bread_board_class, $script_name ) = @_; $script_name =~ s{^(?:.*\bbin/)(.+)$}{$1}; $script_name =~ s{/}{_}g; my $bb = $runclass->compose_breadboard( $bread_board_class ); my $service = $bb->resolve( service=> "App/$script_name" ); $service->run; }