3 1: OPEN: open a scalar on a ref to an array
6 2: PRINT: able to print to IO::Lines=GLOB(0x9c5394c)
9 3: GETC: seek(0,0) and getc()
12 4: GETLINE/SEEK3: seek(3,START) and getline() gets part of 1st line
13 4: GH: "IO::Lines=GLOB(0x9c5394c)"
14 4: Got: "iner while dining at Crewe\n"
15 4: Want: "iner while dining at Crewe\n"
18 5: GETLINE/NEXT: next getline() gets subsequent line
19 5: Got: "Found a rather large mouse in his stew\n"
22 6: GETLINE/EOF: repeated getline() finds end of stream
26 7: GETLINE/GETLINES: seek(0,0) and getlines() slurps in string
27 7: GotAll: "A diner while dining at Crewe\nFound a rather large mouse in his stew\n Said the waiter, \22Don't shout,\n And wave it about...\nor the rest will be wanting one too.\22\n"
28 7: WantAll: "A diner while dining at Crewe\nFound a rather large mouse in his stew\n Said the waiter, \22Don't shout,\n And wave it about...\nor the rest will be wanting one too.\22\n"
29 7: Got: "A diner while dining at Crewe\n"
30 7: Got: "Found a rather large mouse in his stew\n"
31 7: Got: " Said the waiter, \22Don't shout,\n"
32 7: Got: " And wave it about...\n"
33 7: Got: "or the rest will be wanting one too.\22\n"
36 8: READ/FIRST10: reading first 10 bytes with seek(0,START) + read(10)
39 9: READ/NEXT10: reading next 10 bytes with read(10)
42 10: READ/TELL20: tell() the current location as 20
45 11: READ/SLURP: seek(0,START) + read(1000) reads in whole handle
48 12: SEEK/SET: seek(2,SET) + read(5) returns 'diner'
53 13: SEEK/END: seek(-6,END) + read(3) returns 'too'
58 14: SEEK/CUR: seek(-7,CUR) + read(7) returns 'one too'
63 15: TIE/TIE: able to tie
64 15: TieClass: "IO::Lines"
65 15: TieArgs: "ARRAY(0x9c6a034)"
68 16: TIE/PRINT: printing data
71 17: TIE/GETLINE: seek(0,0) and scalar <> get expected lines
72 17: Want: "A diner while dining at Crewe\n"
73 17: Want: "Found a rather large mouse in his stew\n"
74 17: Want: " Said the waiter, \22Don't shout,\n"
75 17: Want: " And wave it about...\n"
76 17: Want: "or the rest will be wanting one too.\22\n"
77 17: Gotl: "A diner while dining at Crewe\n"
78 17: Gotl: "Found a rather large mouse in his stew\n"
79 17: Gotl: " Said the waiter, \22Don't shout,\n"
80 17: Gotl: " And wave it about...\n"
81 17: Gotl: "or the rest will be wanting one too.\22\n"
85 17: FData: "A diner while dining at Crewe\n"
86 17: FData: "Found a rather large mouse in his stew\n"
87 17: FData: " Said the waiter, \22Don't shout,\n"
88 17: FData: " And wave it about...\n"
89 17: FData: "or the rest will be wanting one too.\22\n"
92 18: TIE/GETLINES: seek(0,0) and array <> slurps in lines
93 18: Want: "A diner while dining at Crewe\n"
94 18: Want: "Found a rather large mouse in his stew\n"
95 18: Want: " Said the waiter, \22Don't shout,\n"
96 18: Want: " And wave it about...\n"
97 18: Want: "or the rest will be wanting one too.\22\n"
98 18: Gotl: "A diner while dining at Crewe\n"
99 18: Gotl: "Found a rather large mouse in his stew\n"
100 18: Gotl: " Said the waiter, \22Don't shout,\n"
101 18: Gotl: " And wave it about...\n"
102 18: Gotl: "or the rest will be wanting one too.\22\n"
107 19: RECORDSEP undef: getline slurps everything
108 19: A: "par 1, line 1\npar 1, line 2\n\n\n\n\npar 2, line 1\n\npar 3, line 1\npar 3, line 2\npar 3, line 3"
109 19: B: "par 1, line 1\npar 1, line 2\n\n\n\n\npar 2, line 1\n\npar 3, line 1\npar 3, line 2\npar 3, line 3"
112 20: RECORDSEP undef: get first line
113 20: A: "par 1, line 1\n"
114 20: B: "par 1, line 1\n"
117 21: RECORDSEP undef: slurp the rest
118 21: A: "par 1, line 2\n\n\n\n\npar 2, line 1\n\npar 3, line 1\npar 3, line 2\npar 3, line 3"
119 21: B: "par 1, line 2\n\n\n\n\npar 2, line 1\n\npar 3, line 1\npar 3, line 2\npar 3, line 3"
122 22: RECORDSEP newline: rec 0
123 22: A: "par 1, line 1\n"
124 22: B: "par 1, line 1\n"
127 23: RECORDSEP newline: rec 1
128 23: A: "par 1, line 2\n"
129 23: B: "par 1, line 2\n"
132 24: RECORDSEP newline: rec 2
137 25: RECORDSEP newline: rec 3
142 26: RECORDSEP newline: rec 4
147 27: RECORDSEP newline: rec 5
152 28: RECORDSEP newline: rec 6
153 28: A: "par 2, line 1\n"
154 28: B: "par 2, line 1\n"
157 29: RECORDSEP newline: rec 7
162 30: RECORDSEP newline: rec 8
163 30: A: "par 3, line 1\n"
164 30: B: "par 3, line 1\n"
167 31: RECORDSEP newline: rec 9
168 31: A: "par 3, line 2\n"
169 31: B: "par 3, line 2\n"
172 32: RECORDSEP newline: rec 10
173 32: A: "par 3, line 3"
174 32: B: "par 3, line 3"