INIT { $global_phase++; foreach my $decl (@declarations) { _apply_handler_AH_($decl, 'INIT'); } } #### Loading DB routines from perl5db.pl version 1.33 Editor support available. Enter h or `h h' for help, or `perldoc perldebug' for more help. Attribute::Handlers::CODE(0x29912ec)(C:/Perl/lib/Attribute/Handlers.pm:247): 247: $global_phase++; DB<1> printf $DB::OUT "%vd", $^V; 5.14.2 DB<2> print $DB::OUT eval { require PadWalker; PadWalker->VERSION(0.08) } 1.96 DB<3> ;{ my $file = <<'EOT'; C:/testClass4/mlnx/Tmlnx/Helper/LinuxInstallImpl.pm EOT my $line = <<'EOT'; 27 EOT my $cond = ''; epic_breakpoints::add_breakpoint($file, $line, $cond); }; Undefined subroutine &epic_breakpoints::add_breakpoint called at (eval 31)[C:/Perl/lib/perl5db.pl:640] line 11. DB<4> ;{ my $file = <<'EOT'; C:/testClass4/mlnx/Tmlnx/Helper/LinuxDevicePropertiesImpl.pm EOT my $line = <<'EOT'; 23 EOT my $cond = ''; epic_breakpoints::add_breakpoint($file, $line, $cond); }; Undefined subroutine &epic_breakpoints::add_breakpoint called at (eval 32)[C:/Perl/lib/perl5db.pl:640] line 11. DB<5> . Attribute::Handlers::CODE(0x29912ec)(C:/Perl/lib/Attribute/Handlers.pm:247): 247: $global_phase++; DB<6> T $ = Attribute::Handlers::INIT() called from file `C:/testClass4/mlnx/Tmlnx/Trun/IDeviceProperties.t' line 0 $ = eval {...} called from file `C:/testClass4/mlnx/Tmlnx/Trun/IDeviceProperties.t' line 0 DB<7> . Attribute::Handlers::CODE(0x29912ec)(C:/Perl/lib/Attribute/Handlers.pm:247): 247: $global_phase++; DB<8> . Attribute::Handlers::CODE(0x29912ec)(C:/Perl/lib/Attribute/Handlers.pm:247): 247: $global_phase++; DB<9> . Attribute::Handlers::CODE(0x29912ec)(C:/Perl/lib/Attribute/Handlers.pm:247): 247: $global_phase++; DB<10> ;{ do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars; my $offset = 0; my $savout = CORE::select($DB::OUT); dumpvar_epic::dump_lexical_vars($offset); CORE::select($savout); }; 8|$builtin|1|1|17|SCALAR(0x1dd8934)|5|undef|1|5 13|$global_phase|1|1|17|SCALAR(0x2988a94)|3|'1'|1|3 8|$qual_id|1|1|17|SCALAR(0x299321c)|5|undef|1|5 14|%global_phases|1|1|15|HASH(0x299323c)|3|...|1|3 9|%lastattr|1|1|15|HASH(0x299325c)|3|...|1|3 6|%phase|1|1|15|HASH(0x2988264)|3|...|1|3 4|%raw|1|1|15|HASH(0x2988284)|3|...|1|3 6|%sigil|1|1|15|HASH(0x29889f4)|3|...|1|3 9|%symcache|1|1|15|HASH(0x299327c)|3|...|1|3 10|%validtype|1|1|15|HASH(0x299326c)|3|...|1|3 13|@declarations|1|1|16|ARRAY(0x2988964)|3|...|1|3 14|@global_phases|1|1|16|ARRAY(0x299322c)|3|...|1|3 DB<11> ;{ do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars; my $offset = 0; my $varexpr = <<'EOT'; $h->{'%global_phases'} EOT my $subref = \&dumpvar_epic::dump_hash_expr; my $savout = CORE::select($DB::OUT); my $savbuf = $|; $| = 0; $subref->($offset, $varexpr); $| = $savbuf; print ""; CORE::select($savout); }; DB<12> ;{ do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars; my $offset = 0; my $varexpr = <<'EOT'; $h->{'%global_phases'} EOT my $subref = \&dumpvar_epic::dump_hash_expr; my $savout = CORE::select($DB::OUT); my $savbuf = $|; $| = 0; $subref->($offset, $varexpr); $| = $savbuf; print ""; CORE::select($savout); }; DB<13> ;{ do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars; my $offset = 0; my $varexpr = <<'EOT'; $h->{'%lastattr'} EOT my $subref = \&dumpvar_epic::dump_hash_expr; my $savout = CORE::select($DB::OUT); my $savbuf = $|; $| = 0; $subref->($offset, $varexpr); $| = $savbuf; print ""; CORE::select($savout); }; DB<14> ;{ do 'dumpvar_epic.pm' unless defined &dumpvar_epic::dump_lexical_vars; my $offset = 0; my $varexpr = <<'EOT'; $h->{'%lastattr'} EOT my $subref = \&dumpvar_epic::dump_hash_expr; my $savout = CORE::select($DB::OUT); my $savbuf = $|; $| = 0; $subref->($offset, $varexpr); $| = $savbuf; print ""; CORE::select($savout); }; DB<15>