ext/Devel/DProf/t/test6.v

   1 # perl
   2
   3 use V;
   4
   5 dprofpp( '-T' );
   6 $expected =
   7 qq{main::bar
   8 main::baz
   9    main::bar
  10    main::foo
  11       main::bar
  12 main::foo
  13    main::bar
  14 };
  15 report 1, sub { $expected eq $results };
  16