1N/A# perl
1N/A
1N/Ause V;
1N/A
1N/Adprofpp( '-T' );
1N/A$expected =
1N/Aqq{main::foo1
1N/A main::bar
1N/A main::yeppers
1N/Amain::foo2
1N/A main::bar
1N/A main::yeppers
1N/A};
1N/Areport 17, sub { $expected eq $results };
1N/A