1N/A# perl
1N/A
1N/Ause V;
1N/A
1N/Adprofpp( '-t' );
1N/A$expected =
1N/Aqq{main::foo (2x)
1N/Amain::bar
1N/A};
1N/A
1N/Areport 20, sub { $expected eq $results };