view release on metacpan or  search on metacpan

lib/Devel/hdb/html/debugger.js  view on Meta::CPAN

                dbg.setCurrentStatementForCodeTable(status.next_statement);
        });

    // Events
    $elt.on('click', '.control-button[name="stepin"][disabled!="disabled"]',    this.controlButtonClicked.bind(this))
        .on('click', '.control-button[name="stepout"][disabled!="disabled"]',   this.controlButtonClicked.bind(this))
        .on('click', '.control-button[name="stepover"][disabled!="disabled"]',  this.controlButtonClicked.bind(this))
        .on('click', '.control-button[name="continue"][disabled!="disabled"]',  this.controlButtonClicked.bind(this))
        .on('click', '.control-button[name="exit"][disabled!="disabled"]',      this.controlButtonClicked.bind(this))
        .on('click', '.control-button[name="continue-to"][disabled!="disabled"]', this.continueToDialog.bind(this))
        .on('mouseenter', '.popup-perl-var', popoverPerlVar.bind(this))
        .on('mouseleave', '.popup-perl-var', removePopoverPerlVar.bind(this))
        .on('contextmenu', '.popup-perl-var', addPerlVarToWatchExpressions.bind(this))
        .on('click', '.current-sub-and-args', setCurrentLineForCodeTableEvent.bind(this))
        .on('hangup', notifyProgramHasCompletelyExited.bind(this))
        .on('click', '#add-file', pickFileToLoad.bind(this))
        .on('click', '.remove-loaded-file', removeLoadedFile.bind(this))
        .on('click', '.save-load-breakpoints', saveLoadBreakpoints.bind(this));

    $('#breakpoint-container-handle').click(toggleBreakpointContainer.bind(this));

    setKeybindings();
    setupResizeWatchPane();

lib/Devel/hdb/html/filemanager.js  view on Meta::CPAN

                    endpos = remaining.indexOf(isArray ? ']' : '}');
                if (endpos === null) {
                    // Didn't find it - bail out
                    output = varPrefix;
                    i += varPrefix.length;
                    continue;
                }
                // The indexing portion of the variable expression
                // includes the parens around it
                var arrayIndex = remaining.substring(varPrefix.length - 1, endpos + 1);
                output += '<span class="popup-perl-var" data-eval="'
                            + (isArray ? '@' : '%') + varName + '">' + sigil + varName
                            + '</span><span class="popup-perl-var" data-eval="'
                            + remaining.substring(0, endpos + 1) + '" data-part-of="'
                            + containerSigil + varName + '">'
                            + arrayIndex + '</span>';
                i += (endpos + 1);

            } else if (basic_dereference.test(remaining)) {
                output += '<span class="popup-perl-var" data-eval="'
                            + RegExp.$3 + '">' + RegExp.$1 + '</span>';
                i += RegExp.$1.length;

            } else if (scalar_array_hash_or_glob.test(remaining)) {
                output += '<span class="popup-perl-var" data-eval="'
                            + RegExp.$1 + '">' + RegExp.$1 + '</span>';
                i += RegExp.$1.length;

            } else if (perl_special_var.test(remaining)) {
                output += '<span class="popup-perl-var" data-eval="'
                            + RegExp.$1 + '">' + RegExp.$1 + '</span>';
                i += RegExp.$1.length;

            } else if (other_perl_special_var.test(remaining)) {
                output += '<span class="popup-perl-var" data-eval="'
                            + RegExp.$1 + '">' + RegExp.$1 + '</span>';
                i += RegExp.$1.length;

            } else {
                // Found no perl vars
                output += remaining.charAt(0);
                i++;
                continue;
            }
        }