Code Index:

package Enbugger::perl5db
EOF

NAME

Enbugger::perl5db - subclass for the ordinary perl5db.pl debugger

OVERRIDEN METHODS

CLASS->_load_debugger
CLASS->_stop
CLASS->_write( TEXT )

package Enbugger::perl5db; # COPYRIGHT AND LICENCE # # Copyright (C) 2007,2008 WhitePages.com, Inc. with primary # development by Joshua ben Jore. # # This program is distributed WITHOUT ANY WARRANTY, including but not # limited to the implied warranties of merchantability or fitness for # a particular purpose. # # The program is free software. You may distribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation (either version 2 or any later version) # and the Perl Artistic License as published by Oâ€™Reilly Media, Inc. # Please open the files named gpl-2.0.txt and Artistic for a copy of # these licenses.

use strict; use vars qw( @ISA @Symbols ); BEGIN { @ISA = 'Enbugger' }

sub _load_debugger { my ( $class ) = @_; $class->_compile_with_nextstate(); require 'perl5db.pl'; $class->_compile_with_dbstate(); $class->init_debugger; return; }

1 if $DB::signal; sub _stop { # perl5db looks for this to stop. $DB::signal = 1; # Use at least the default debug flags. $^P |= 0x33f; return; }

1 if $DB::OUT; sub _write { my $class = shift @_; print { $DB::OUT } @_; return; }

# Load up a list of symbols known to be associated with this # debugger. Enbugger, the base class will use this to guess at which # debugger has been loaded if it was loaded prior to Enbugger being # around. 1 if %Enbugger::RegisteredDebuggers; $Enbugger::RegisteredDebuggers{perl5db}{symbols} = [qw[ ARGS BEGIN CommandSet CreateTTY CvGV_name CvGV_name_or_bust DB DBGR DollarCaretP DollarCaretP_flags DollarCaretP_flags_r END FD_TO_CLOSE IN I_m_init ImmediateStop LINEINFO LineInfo NonStop OUT ReadLine RememberOnROptions RemotePort SAVEIN SAVEOUT Snocheck Spatt Srev TTY VERSION XT a action after afterinit alias arg args arrow b balanced_brace_re break_on_filename_line break_on_filename_line_range break_on_line break_on_load break_subroutine breakable_line breakable_line_in_filename catch clean_ENV cmd cmd_A cmd_B cmd_E cmd_L cmd_M cmd_O cmd_W cmd_a cmd_b cmd_b_line cmd_b_load cmd_b_sub cmd_e cmd_h cmd_i cmd_l cmd_o cmd_pre580_D cmd_pre580_W cmd_pre580_a cmd_pre580_b cmd_pre580_h cmd_pre580_null cmd_pre590_prepost cmd_prepost cmd_stop cmd_v cmd_w cmd_wrapper cmdfhs cond console create_IN_OUT db_complete db_stop dbdie dbline dbwarn deep delete_action delete_breakpoint dieLevel diesignal doccmd doret dump_option dump_trace dumpit emacs end end_report eval evalarg expand_DollarCaretP_flags fake:: fall_off_end file filename filename_error filename_ini find_sub finished fix_less fork_TTY frame get_fork_TTY get_list gets had_breakpoints header help hist histfile histsize i incr incr_pos infix inhibit_exit ini_INC ini_pids ini_warn inpat is_safe_file j l laststep level line lineinfo list_modules load_hist lock macosx_get_fork_TTY max maxtrace methods methods_via noTTY notty od old_watch onetimeDump onetimedumpDepth option optionAction optionRequire optionVars option_val options options2remember ornaments os2_get_fork_TTY osingle otrace package packname pager panic parse_DollarCaretP_flags parse_options pat pidprompt pids pieces piped position post postponed postponed_file postponed_sub prc pre pre580_help pre580_summary prefix pretype prevbus prevdie preview prevsegv prevwarn print_help print_lineinfo print_trace psh rc rcfile readline recallCommand remoteport report_break_on_load rerun res reset_IN_OUT resetterm restart rl rl_attribs runman runnonstop safe_do save save_hist saved savout second_time seen selected set_list sethelp setman setterm sh share shellBang signal signalLevel single skipCvGV slave_editor stack stack_depth start stop stuff sub subname subrange subroutine_filename_lines summary system term term_pid tkRunning to_watch trace truehist try tty typeahead unbalanced usercontext vars warn warnLevel watchfunction window xterm_get_fork_TTY ]]; ## Local Variables: ## mode: cperl ## mode: auto-fill ## cperl-indent-level: 4 ## End: