DEBSOURCES
Skip Quicknav
sources / libdevel-nytprof-perl / 6.12%2Bdfsg-1 / t / test09.p
12345678910111213
sub foo { eval "shift; shift; bar();"; } sub bar { eval '$a = 10_001; while (--$a) { ++$b }'; } foo(); foo(); bar();