Home | History | Annotate | Download | only in PerlSupport
      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;
     55