1N/A# perl
1N/A
1N/Ause V;
1N/A
1N/Adprofpp( '-T' );
1N/A$e1 = $expected =
1N/Aqq{main::bar
1N/Amain::baz
1N/A main::bar
1N/A main::foo
1N/A};
1N/Areport 9, sub { $expected eq $results };
1N/A
1N/Adprofpp('-TF');
1N/A$e2 = $expected =
1N/Aqq{main::bar
1N/Amain::baz
1N/A main::bar
1N/A main::foo
1N/A};
1N/Areport 10, sub { $expected eq $results };
1N/A
1N/Adprofpp( '-t' );
1N/A$expected = $e1;
1N/Areport 11, sub { 1 };
1N/A
1N/Adprofpp('-tF');
1N/A$expected = $e2;
1N/Areport 12, sub { $expected eq $results };