$ENV{PERLDB_OPTS} = "NonStop=1 LineInfo=/tmp/db-$$.out AutoTrace=1 frame=1";
use Apache::DB;

##</code><code>##

[root@linux tmp]# wc -l subs.log 
  43986 subs.log
[root@linux tmp]# grep -i parse::recdescent subs.log |wc -l
  35769

##</code><code>##

 entering Parse::RecDescent::Rule::expected
  entering Parse::RecDescent::Production::expected
   entering Parse::RecDescent::Subrule::describe
  entering Parse::RecDescent::Rule::_contains
  entering Parse::RecDescent::Production::expected
   entering Parse::RecDescent::Subrule::describe
  entering Parse::RecDescent::Rule::_contains
  entering Parse::RecDescent::Production::expected
   entering Parse::RecDescent::Subrule::describe
  entering Parse::RecDescent::Rule::_contains
 entering Parse::RecDescent::Expectation::new
 entering Parse::RecDescent::Expectation::at
 entering Parse::RecDescent::LineCounter::TIESCALAR
 entering Parse::RecDescent::Expectation::is
 entering Parse::RecDescent::Expectation::at
 entering Parse::RecDescent::namespace000001::function_name
  entering CODE(0x815294d8)
  entering Parse::RecDescent::Rule::expected
   entering Parse::RecDescent::Production::expected
    entering Parse::RecDescent::Token::describe
   entering Parse::RecDescent::Rule::_contains
  entering Parse::RecDescent::Expectation::new
  entering Parse::RecDescent::Expectation::at