Michael G Schwern wrote: > It does add significant overhead. Here's the example of one of > Regexp::Common's tests. > > 0 windhund /private/var/local/cpan_shell/build/Regexp-Common-2.120$ time perl > -Ilib ~/tmp/strip_ok t/number/integer.t > 1..23534 > > real 0m4.882s > user 0m5.469s > sys 0m0.155s > 0 windhund /private/var/local/cpan_shell/build/Regexp-Common-2.120$ time perl > -Ilib t/number/integer.t > /dev/null > > real 0m2.051s > user 0m2.020s > sys 0m0.018s > > TAPx::Parser has not yet been optimized so some profiling information would > likely prove interesting. I would much rather improve the parser than change > the protocol.
A Devel::DProf run of the above is attached. I don't trust the times but I do trust the counts. Here's the top routines to get an idea... Total Elapsed Time = 4.270165 Seconds User+System Time = 0 Seconds Exclusive Times %Time ExclSec CumulS #Calls sec/call Csec/c Name 0.00 1.300 3.318 100001 0.0000 0.0000 TAPx::Parser::Streamed::_lex 0.00 1.279 1.268 100000 0.0000 0.0000 TAPx::Parser::_aggregate_results 0.00 0.910 1.129 100000 0.0000 0.0000 TAPx::Parser::Grammar::_make_test_token 0.00 0.889 2.277 900025 0.0000 0.0000 TAPx::Parser::__ANON__ 0.00 0.700 0.700 100001 0.0000 0.0000 TAPx::Parser::Iterator::FH::next 0.00 0.600 1.729 100001 0.0000 0.0000 TAPx::Parser::Grammar::__ANON__ 0.00 0.340 0.340 100001 0.0000 0.0000 TAPx::Parser::Results::new 0.00 0.220 0.220 500000 0.0000 0.0000 TAPx::Parser::Grammar::_trim 0.00 0.180 0.180 200000 0.0000 0.0000 TAPx::Parser::Results::Test::is_actual_ok 0.00 0.170 0.170 200002 0.0000 0.0000 TAPx::Parser::Results::type 0.00 0.160 1.927 100001 0.0000 0.0000 TAPx::Parser::_validate 0.00 0.110 0.110 100004 0.0000 0.0000 TAPx::Parser::Grammar::syntax_for 0.00 0.100 0.040 100000 0.0000 0.0000 TAPx::Parser::_check_ending_plan 0.00 0.100 0.100 500000 0.0000 0.0000 TAPx::Parser::Results::Test::has_todo 0.00 0.090 0.090 100001 0.0000 0.0000 TAPx::Parser::Iterator::FH::is_first 0.00 0.080 0.080 300003 0.0000 0.0000 TAPx::Parser::Results::Test::number 0.00 0.050 0.050 100001 0.0000 0.0000 TAPx::Parser::Grammar::token_types 0.00 0.040 0.010 100000 0.0000 0.0000 TAPx::Parser::Results::Test::todo_failed 0.00 0.020 0.020 100000 0.0000 0.0000 TAPx::Parser::Results::Test::has_skip 0.00 0.020 0.020 100001 0.0000 0.0000 TAPx::Parser::Grammar::handler_for 0.00 0.010 0.010 9 0.0011 0.0011 TAPx::Parser::Results::BEGIN 0.00 0.010 0.018 9 0.0011 0.0020 TAPx::Parser::BEGIN
dproff.out
Description: Binary data
