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