32 lines
687 B
Plaintext
32 lines
687 B
Plaintext
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.
|