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