1# perl 2 3use V; 4 5dprofpp( '-T' ); 6$expected = 7qq{main::bar 8main::bar 9main::baz 10 main::bar 11 main::bar 12 main::bar 13 main::foo 14 main::bar 15main::foo 16 main::bar 17}; 18report 5, sub { $expected eq $results }; 19 20dprofpp('-TF'); 21report 6, sub { $expected eq $results }; 22 23dprofpp( '-t' ); 24$expected = 25qq{main::bar (2x) 26main::baz 27 main::bar (3x) 28 main::foo 29 main::bar 30main::foo 31 main::bar 32}; 33report 7, sub { $expected eq $results }; 34 35dprofpp('-tF'); 36report 8, sub { $expected eq $results }; 37