—

              
#!perl
use strict;
use warnings;
#use lib::findbin '../lib'; # dev-only
# PODNAME: ebug_client
# ABSTRACT: Debugger client for remote debugging Perl script
our $VERSION = '0.64'; # VERSION
__END__
HideShow 104 lines of Pod
=pod
=encoding UTF-8
=head1 NAME
ebug_client - Debugger client for remote debugging Perl script
=head1 VERSION
version 0.64
=head1 SYNOPSIS
 ebug_client -key <secret> -port <port>
=head1 DESCRIPTION
L<ebug_client> is an debugger front end for attaching to
remotely executing perl script, running on L<ebug_server>.
To invoke L<ebug_client>, you must first invoke L<ebug_server> to
run debuggee and generate "key" and "port" needed for connection.
When L<ebug_server> is invoked, it will show exact command-line to
invoke L<ebug_client>.
=head1 EXAMPLE
 # Attach to ebug_server running on port 4023, with key "begripra"
 $ ebug_client -key begripra -port 4023
=head1 NOTE
Currently, you cannot "restart" debuggee. You'll need to
restart one manually by re-invoking both L<ebug_server> and
L<ebug_client>.
Since Devel::ebug::Backend listens to "localhost" socket,
you will need to relay I/O using tool like socat for true
remote debugging.
Internally, thanks for it being free software, it is almost
a complete ripoff of Devel::ebug source.
=head1 SEE ALSO
L<Devel::debug>, L<ebug>, L<ebug_server>
=head1 cut
package Devel::ebug;
use Devel::ebug;
use IO::Socket::INET;
our $ARG     = {};
# Replace 'load' with one that just attaches
sub load {
    my $self    = shift;
    $self->attach($ARG->{port}, $ARG->{key});
}
package main;
use Devel::ebug::Console;
use Getopt::Long;
GetOptions( my $OPT = {}, 'help', 'port=i', 'key=s' ) || help();
help() if $OPT->{help};
$Devel::ebug::ARG = $OPT;
my $console = Devel::ebug::Console->new();
$console->run();
exit(0);
sub help {
    print STDERR <<EOF;
Usage: $0 -key <secret> -port <port> -- debuggee args...
EOF
    exit(1);
}
=head1 AUTHOR
Original author: Leon Brocard E<lt>acme@astray.comE<gt>
Current maintainer: Graham Ollis E<lt>plicease@cpan.orgE<gt>
Contributors:
Brock Wilcox E<lt>awwaiid@thelackthereof.orgE<gt>
Taisuke Yamada
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2005-2021 by Leon Brocard.
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