Rename WebKitTools to Tools
[WebKit-https.git] / Tools / DumpRenderTree / mac / PerlSupport / DumpRenderTreeSupportPregenerated.pm
1 # This file was automatically generated by SWIG
2 package DumpRenderTreeSupport;
3 require Exporter;
4 require DynaLoader;
5 @ISA = qw(Exporter DynaLoader);
6 package DumpRenderTreeSupportc;
7 bootstrap DumpRenderTreeSupport;
8 package DumpRenderTreeSupport;
9 @EXPORT = qw( );
10
11 # ---------- BASE METHODS -------------
12
13 package DumpRenderTreeSupport;
14
15 sub TIEHASH {
16     my ($classname,$obj) = @_;
17     return bless $obj, $classname;
18 }
19
20 sub CLEAR { }
21
22 sub FIRSTKEY { }
23
24 sub NEXTKEY { }
25
26 sub FETCH {
27     my ($self,$field) = @_;
28     my $member_func = "swig_${field}_get";
29     $self->$member_func();
30 }
31
32 sub STORE {
33     my ($self,$field,$newval) = @_;
34     my $member_func = "swig_${field}_set";
35     $self->$member_func($newval);
36 }
37
38 sub this {
39     my $ptr = shift;
40     return tied(%$ptr);
41 }
42
43
44 # ------- FUNCTION WRAPPERS --------
45
46 package DumpRenderTreeSupport;
47
48 *processIsCrashing = *DumpRenderTreeSupportc::processIsCrashing;
49
50 # ------- VARIABLE STUBS --------
51
52 package DumpRenderTreeSupport;
53
54 1;