t/pragma/warn/perly

   1   perly.y       AOK
   2
   3   dep() => deprecate("\"do\" to call subroutines")
   4   Use of "do" to call subroutines is deprecated
   5
   6         sub fred {} do fred()
   7         sub fred {} do fred(1)
   8         sub fred {} $a = "fred" ; do $a()
   9         sub fred {} $a = "fred" ; do $a(1)
  10
  11
  12 __END__
  13 # perly.y
  14 use warning 'deprecated' ;
  15 sub fred {}
  16 do fred() ;
  17 do fred(1) ;
  18 $a = "fred" ;
  19 do $a() ;
  20 do $a(1) ;
  21 EXPECT
  22 Use of "do" to call subroutines is deprecated at - line 4.
  23 Use of "do" to call subroutines is deprecated at - line 5.
  24 Use of "do" to call subroutines is deprecated at - line 7.
  25 Use of "do" to call subroutines is deprecated at - line 8.