1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
package Tie;
=head1 NAME
Tie - stubs to make sure that TIE* and friends are skipped
=head1 METHODS
=item foo
blah blah
=cut
sub foo {
print "I like pie\n";
}
sub TIESCALAR { print "foo"; }
sub TIEARRAY { print "foo"; }
sub TIEHASH { print "foo"; }
sub TIEHANDLE { print "foo"; }
sub FETCH { print "foo"; }
sub STORE { print "foo"; }
sub UNTIE { print "foo"; }
sub FETCHSIZE { print "foo"; }
sub STORESIZE { print "foo"; }
sub POP { print "foo"; }
sub PUSH { print "foo"; }
sub SHIFT { print "foo"; }
sub UNSHIFT { print "foo"; }
sub SPLICE { print "foo"; }
sub DELETE { print "foo"; }
sub EXISTS { print "foo"; }
sub EXTEND { print "foo"; }
sub CLEAR { print "foo"; }
sub FIRSTKEY { print "foo"; }
sub NEXTKEY { print "foo"; }
sub PRINT { print "foo"; }
sub PRINTF { print "foo"; }
sub WRITE { print "foo"; }
sub READLINE { print "foo"; }
sub GETC { print "foo"; }
sub READ { print "foo"; }
sub CLOSE { print "foo"; }
sub BINMODE { print "foo"; }
sub OPEN { print "foo"; }
sub EOF { print "foo"; }
sub FILENO { print "foo"; }
sub SEEK { print "foo"; }
sub TELL { print "foo"; }
1;
|
