1## name basic failures 2## failures 7 3## cut 4 5&function_call(); 6&my_package::function_call(); 7&function_call( $args ); 8&my_package::function_call( %args ); 9&function_call( &other_call( @foo ), @bar ); 10&::function_call(); 11 12#----------------------------------------------------------------------------- 13 14## name basic passing 15## failures 0 16## cut 17exists &function_call; 18defined &function_call; 19\ &function_call; 20\&function_call; 21exists &my_package::function_call; 22defined &my_package::function_call; 23\ &my_package::function_call; 24\&my_package::function_call; 25$$foo; # for Devel::Cover; skip non-backslash casts 26 27#----------------------------------------------------------------------------- 28 29## name RT #38855 passing with parens 30## failures 0 31## cut 32 33defined( &function_call ); 34exists( &function_call ); 35 36#----------------------------------------------------------------------------- 37 38## name RT #49609 recognize reference-taking distributes over parens 39## failures 0 40## cut 41 42\( &function_call ); 43\( &function_call, &another_function ); 44 45#----------------------------------------------------------------------------- 46 47## name more passing 48## failures 0 49## cut 50function_call(); 51my_package::function_call(); 52function_call( $args ); 53my_package::function_call( %args ); 54function_call( other_call( @foo ), @bar ); 55\&my_package::function_call; 56\&function_call; 57goto &foo; 58 59#----------------------------------------------------------------------------- 60 61## name handle that the first bareword after "sort" is the comparator function 62## failures 0 63## cut 64 65sort &foo($x) 66 67#----------------------------------------------------------------------------- 68# Local Variables: 69# mode: cperl 70# cperl-indent-level: 4 71# fill-column: 78 72# indent-tabs-mode: nil 73# c-indentation-style: bsd 74# End: 75# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround : 76