t/lib/dprof/test5_t

   1 # Test that dprof doesn't break
   2 #    &bar;  used as &bar(@_);
   3
   4 sub foo1 {
   5         print "in foo1(@_)\n";
   6         bar(@_);
   7 }
   8 sub foo2 {
   9         print "in foo2(@_)\n";
  10         &bar;
  11 }
  12 sub bar {
  13         print "in bar(@_)\n";
  14         if( @_ > 0 ){
  15                 &yeppers;
  16         }
  17 }
  18 sub yeppers {
  19         print "rest easy\n";
  20 }
  21
  22
  23 &foo1( A );
  24 &foo2( B );
  25