ext/Devel-DProf/dprof/test1_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
  17 dprofpp('-TF');
  18 report 2, sub { $expected eq $results };
  19
  20 dprofpp( '-t' );
  21 report 3, sub { $expected eq $results };
  22
  23 dprofpp('-tF');
  24 report 4, sub { $expected eq $results };