WebKitTools/DumpRenderTree/mac/PerlSupport/DumpRenderTreeSupportTiger.pm
changeset 2 303757a437d3
parent 0 4f2f89ce4247
equal deleted inserted replaced
0:4f2f89ce4247 2:303757a437d3
     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;