File Coverage

lib/Remote/Perl/Bootstrap.pm

Criterion	Covered	Total	%
statement	45	45	100.0
branch	4	6	66.6
condition			n/a
subroutine	10	10	100.0
pod	0	2	0.0
total	59	63	93.6

use v5.36;
package Remote::Perl::Bootstrap;
our $VERSION = '0.004';

use autodie qw(open close);
use File::Spec;
use Exporter 'import';
our @EXPORT_OK = qw(bootstrap_payload wait_for_ready READY_MARKER);

# The pre-protocol readiness marker the client sends after being eval'd.
use constant READY_MARKER    => "REMOTEPERL1\n";

# Sentinel that terminates the client code in the DATA section.
use constant BOOT_END        => '__REMOTE_PERL_BOOT_END__';

# The wrapper script sent as the "perl script" over the pipe.
# Remote perl compiles and runs this; it reads client code from
# up to the sentinel, then eval's it.
# NOTE: the __END__ token here is intentional and parsed by the remote perl.
# NOTE: use strict/warnings explicitly rather than `use v5.36` so that no
# feature pragmas leak into eval'd user code via the outer bootstrap scope.
# NOTE: WRAPPER runs on the remote side and must stay compatible with Perl 5.10+.
use constant WRAPPER => <<'END_WRAPPER';
use strict; use warnings;
binmode(STDIN); binmode(STDOUT); $| = 1;
eval(do {
    my $c = '';
    while (defined(my $line = )) {
        last if $line eq "__REMOTE_PERL_BOOT_END__\n";
        $c .= $line;
    }
    $c
}) or do { print STDERR "remperl bootstrap failed: $@\n"; exit 1 };
__END__