3 # Error - not predeclaring a sub
7 Number found where operator expected at - line 3, near "Fred 1"
8 (Do you need to predeclare Fred?)
9 syntax error at - line 3, near "Fred 1"
10 Execution of - aborted due to compilation errors.
13 # Error - not predeclaring a sub in time
18 Number found where operator expected at - line 3, near "Fred 1"
19 (Do you need to predeclare Fred?)
20 syntax error at - line 3, near "Fred 1"
21 BEGIN not safe after errors--compilation aborted at - line 4.
27 sub Fred { print $_[0] + $_[1], "\n" }
32 # override a built-in function
35 sub open { print $_[0] + $_[1], "\n" }
40 # override a built-in function, call after definition
42 sub open { print $_[0] + $_[1], "\n" }
48 # override a built-in function, call with ()
51 sub open { print $_[0] + $_[1], "\n" }
56 # override a built-in function, call with () after definition
58 sub open { print $_[0] + $_[1], "\n" }
70 sub Fred { print $_[0] + $_[1], "\n" }
75 # check that it isn't affected by block scope
80 sub Fred { print $_[0] + $_[1], "\n" }
85 # Error - not predeclaring a sub
87 use open qw( :utf8 :std );
91 Number found where operator expected at - line 5, near "Frèd 1"
92 (Do you need to predeclare Frèd?)
93 syntax error at - line 5, near "Frèd 1"
94 Execution of - aborted due to compilation errors.
97 # Error - not predeclaring a sub in time
99 use open qw( :utf8 :std );
104 Number found where operator expected at - line 5, near "ふれど 1"
105 (Do you need to predeclare ふれど?)
106 syntax error at - line 5, near "ふれど 1"
107 BEGIN not safe after errors--compilation aborted at - line 6.