perly.y AOK
dep() => deprecate("\"do\" to call subroutines")
Use of "do" to call subroutines is deprecated
sub fred {} do fred()
sub fred {} do fred(1)
sub fred {} $a = "fred" ; do $a()
sub fred {} $a = "fred" ; do $a(1)
__END__
# perly.y
use warnings 'deprecated' ;
sub fred {}
do fred() ;
do fred(1) ;
$a = "fred" ;
do $a() ;
do $a(1) ;
no warnings 'deprecated' ;
do fred() ;
do fred(1) ;
$a = "fred" ;
do $a() ;
do $a(1) ;
EXPECT
Use of "do" to call subroutines is deprecated at - line 4.
Use of "do" to call subroutines is deprecated at - line 5.
Use of "do" to call subroutines is deprecated at - line 7.
Use of "do" to call subroutines is deprecated at - line 8.