$res .= sprintf(qq(\n),
$encoding ? qq( encoding="$encoding") : "",
$encVal);
####
$res .= sprintf(qq(\n), $encVal);
##
##
context_id="%d"
##
##
context="%d"
##
##
$res .= sprintf(' line="%s"',
##
##
$res .= sprintf(' lineno="%s"',
##
##
my $bpInfo = getBreakpointInfoString($bkptID, function => $bFunction);
##
##
if ($bpInfo) {
$res .= $bpInfo;
}
##
##
set PERL5LIB=C:\path\to\Notepad++\plugins\PerlDebug
set PERLDB_OPTS=RemotePort=127.0.0.1:9000
##
##
NPP_SAVE
cd "$(CURRENT_DIRECTORY)"
NPP_MENUCOMMAND Plugins\DBGp\Debugger
ENV_SET PERLDB_OPTS=RemotePort=127.0.0.1:9000
ENV_SET PERL5LIB=$(SYS.PERL5LIB);$(NPP_DIRECTORY)\plugins\PerlDebug
INPUTBOX "Command Line Arguments: "
cmd /c start "Perl Debug" cmd /c perl.exe -d "$(FILE_NAME)" $(INPUT)