ext/Devel/DProf/t/test5.v

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