view release on metacpan or  search on metacpan

t/44-smart-router-two-stage.t  view on Meta::CPAN

_run_or_die(
    'docker', 'run', '-d',
    '--name', $container,
    '-p', "127.0.0.1:$host_port:7890",
    'perl:latest',
    'sleep', 'infinity',
);
_run_or_die( 'docker', 'cp', $tarball, "$container:$container_tarball" );
_run_or_die( 'docker', 'cp', $skill_repo, "$container:$skill_mount_path" );
_run_or_die( 'docker', 'exec', $container, 'sh', '-lc', "chown -R root:root $skill_mount_path" );
_run_or_die_with_retry(
    2,
    [ 'docker', 'exec', $container, 'sh', '-lc', "cpanm --notest $container_tarball" ],
);
_run_or_die( 'docker', 'exec', $container, 'sh', '-lc', 'dashboard init' );
_run_or_die( 'docker', 'exec', $container, 'sh', '-lc', 'cd /root && dashboard restart web' );

my ( $stage1_code, $stage1_body ) = _container_http_get(
    $container,
    "http://127.0.0.1:7890/ajax/$ajax_route_name?type=json",