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