CPAN RT

# plan a test for each call to Devel::Profiler::Test
use Test::More tests => 2;
use Devel::Profiler::Test qw(profile_code check_tree);
profile_code(<<END)
... some code to profile ...
END
check_tree(<<END)
... a tree in the format produced by dprofpp -T ...
END