lib/WWW/Quvi.pm

   1 # This file was automatically generated by SWIG (http://www.swig.org).
   2 # Version 2.0.1
   3 #
   4 # Do not make changes to this file unless you know what you are doing--modify
   5 # the SWIG interface file instead.
   6
   7 package WWW::Quvi;
   8 use base qw(Exporter);
   9 use base qw(DynaLoader);
  10 package WWW::Quvic;
  11 bootstrap WWW::Quvi;
  12 package WWW::Quvi;
  13 @EXPORT = qw();
  14
  15 # ---------- BASE METHODS -------------
  16
  17 package WWW::Quvi;
  18
  19 sub TIEHASH {
  20     my ($classname,$obj) = @_;
  21     return bless $obj, $classname;
  22 }
  23
  24 sub CLEAR { }
  25
  26 sub FIRSTKEY { }
  27
  28 sub NEXTKEY { }
  29
  30 sub FETCH {
  31     my ($self,$field) = @_;
  32     my $member_func = "swig_${field}_get";
  33     $self->$member_func();
  34 }
  35
  36 sub STORE {
  37     my ($self,$field,$newval) = @_;
  38     my $member_func = "swig_${field}_set";
  39     $self->$member_func($newval);
  40 }
  41
  42 sub this {
  43     my $ptr = shift;
  44     return tied(%$ptr);
  45 }
  46
  47
  48 # ------- FUNCTION WRAPPERS --------
  49
  50 package WWW::Quvi;
  51
  52 *version = *WWW::Quvic::version;
  53
  54 ############# Class : WWW::Quvi::Options ##############
  55
  56 package WWW::Quvi::Options;
  57 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
  58 @ISA = qw( WWW::Quvi );
  59 %OWNER = ();
  60 %ITERATORS = ();
  61 sub new {
  62     my $pkg = shift;
  63     my $self = WWW::Quvic::new_Options(@_);
  64     bless $self, $pkg if defined($self);
  65 }
  66
  67 *swig_user_agent_get = *WWW::Quvic::Options_user_agent_get;
  68 *swig_user_agent_set = *WWW::Quvic::Options_user_agent_set;
  69 *swig_http_proxy_get = *WWW::Quvic::Options_http_proxy_get;
  70 *swig_http_proxy_set = *WWW::Quvic::Options_http_proxy_set;
  71 *swig_verbose_libcurl_get = *WWW::Quvic::Options_verbose_libcurl_get;
  72 *swig_verbose_libcurl_set = *WWW::Quvic::Options_verbose_libcurl_set;
  73 *swig_format_get = *WWW::Quvic::Options_format_get;
  74 *swig_format_set = *WWW::Quvic::Options_format_set;
  75 *swig_verify_get = *WWW::Quvic::Options_verify_get;
  76 *swig_verify_set = *WWW::Quvic::Options_verify_set;
  77 *swig_shortened_get = *WWW::Quvic::Options_shortened_get;
  78 *swig_shortened_set = *WWW::Quvic::Options_shortened_set;
  79 sub DESTROY {
  80     return unless $_[0]->isa('HASH');
  81     my $self = tied(%{$_[0]});
  82     return unless defined $self;
  83     delete $ITERATORS{$self};
  84     if (exists $OWNER{$self}) {
  85         WWW::Quvic::delete_Options($self);
  86         delete $OWNER{$self};
  87     }
  88 }
  89
  90 sub DISOWN {
  91     my $self = shift;
  92     my $ptr = tied(%$self);
  93     delete $OWNER{$ptr};
  94 }
  95
  96 sub ACQUIRE {
  97     my $self = shift;
  98     my $ptr = tied(%$self);
  99     $OWNER{$ptr} = 1;
 100 }
 101
 102
 103 ############# Class : WWW::Quvi::Link ##############
 104
 105 package WWW::Quvi::Link;
 106 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
 107 @ISA = qw( WWW::Quvi );
 108 %OWNER = ();
 109 %ITERATORS = ();
 110 sub new {
 111     my $pkg = shift;
 112     my $self = WWW::Quvic::new_Link(@_);
 113     bless $self, $pkg if defined($self);
 114 }
 115
 116 *swig_content_type_get = *WWW::Quvic::Link_content_type_get;
 117 *swig_content_type_set = *WWW::Quvic::Link_content_type_set;
 118 *swig_file_suffix_get = *WWW::Quvic::Link_file_suffix_get;
 119 *swig_file_suffix_set = *WWW::Quvic::Link_file_suffix_set;
 120 *swig_length_bytes_get = *WWW::Quvic::Link_length_bytes_get;
 121 *swig_length_bytes_set = *WWW::Quvic::Link_length_bytes_set;
 122 *swig_url_get = *WWW::Quvic::Link_url_get;
 123 *swig_url_set = *WWW::Quvic::Link_url_set;
 124 sub DESTROY {
 125     return unless $_[0]->isa('HASH');
 126     my $self = tied(%{$_[0]});
 127     return unless defined $self;
 128     delete $ITERATORS{$self};
 129     if (exists $OWNER{$self}) {
 130         WWW::Quvic::delete_Link($self);
 131         delete $OWNER{$self};
 132     }
 133 }
 134
 135 sub DISOWN {
 136     my $self = shift;
 137     my $ptr = tied(%$self);
 138     delete $OWNER{$ptr};
 139 }
 140
 141 sub ACQUIRE {
 142     my $self = shift;
 143     my $ptr = tied(%$self);
 144     $OWNER{$ptr} = 1;
 145 }
 146
 147
 148 ############# Class : WWW::Quvi::Video ##############
 149
 150 package WWW::Quvi::Video;
 151 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
 152 @ISA = qw( WWW::Quvi );
 153 %OWNER = ();
 154 %ITERATORS = ();
 155 sub new {
 156     my $pkg = shift;
 157     my $self = WWW::Quvic::new_Video(@_);
 158     bless $self, $pkg if defined($self);
 159 }
 160
 161 *swig_title_get = *WWW::Quvic::Video_title_get;
 162 *swig_title_set = *WWW::Quvic::Video_title_set;
 163 *swig_host_get = *WWW::Quvic::Video_host_get;
 164 *swig_host_set = *WWW::Quvic::Video_host_set;
 165 *swig_url_get = *WWW::Quvic::Video_url_get;
 166 *swig_url_set = *WWW::Quvic::Video_url_set;
 167 *swig_id_get = *WWW::Quvic::Video_id_get;
 168 *swig_id_set = *WWW::Quvic::Video_id_set;
 169 *swig_link_get = *WWW::Quvic::Video_link_get;
 170 *swig_link_set = *WWW::Quvic::Video_link_set;
 171 *swig_ok_get = *WWW::Quvic::Video_ok_get;
 172 *swig_ok_set = *WWW::Quvic::Video_ok_set;
 173 sub DESTROY {
 174     return unless $_[0]->isa('HASH');
 175     my $self = tied(%{$_[0]});
 176     return unless defined $self;
 177     delete $ITERATORS{$self};
 178     if (exists $OWNER{$self}) {
 179         WWW::Quvic::delete_Video($self);
 180         delete $OWNER{$self};
 181     }
 182 }
 183
 184 sub DISOWN {
 185     my $self = shift;
 186     my $ptr = tied(%$self);
 187     delete $OWNER{$ptr};
 188 }
 189
 190 sub ACQUIRE {
 191     my $self = shift;
 192     my $ptr = tied(%$self);
 193     $OWNER{$ptr} = 1;
 194 }
 195
 196
 197 ############# Class : WWW::Quvi::Query ##############
 198
 199 package WWW::Quvi::Query;
 200 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
 201 @ISA = qw( WWW::Quvi );
 202 %OWNER = ();
 203 %ITERATORS = ();
 204 sub new {
 205     my $pkg = shift;
 206     my $self = WWW::Quvic::new_Query(@_);
 207     bless $self, $pkg if defined($self);
 208 }
 209
 210 sub DESTROY {
 211     return unless $_[0]->isa('HASH');
 212     my $self = tied(%{$_[0]});
 213     return unless defined $self;
 214     delete $ITERATORS{$self};
 215     if (exists $OWNER{$self}) {
 216         WWW::Quvic::delete_Query($self);
 217         delete $OWNER{$self};
 218     }
 219 }
 220
 221 *parse = *WWW::Quvic::Query_parse;
 222 *next_website = *WWW::Quvic::Query_next_website;
 223 *swig_last_error_get = *WWW::Quvic::Query_last_error_get;
 224 *swig_last_error_set = *WWW::Quvic::Query_last_error_set;
 225 *swig_quvi_code_get = *WWW::Quvic::Query_quvi_code_get;
 226 *swig_quvi_code_set = *WWW::Quvic::Query_quvi_code_set;
 227 *swig_resp_code_get = *WWW::Quvic::Query_resp_code_get;
 228 *swig_resp_code_set = *WWW::Quvic::Query_resp_code_set;
 229 sub DISOWN {
 230     my $self = shift;
 231     my $ptr = tied(%$self);
 232     delete $OWNER{$ptr};
 233 }
 234
 235 sub ACQUIRE {
 236     my $self = shift;
 237     my $ptr = tied(%$self);
 238     $OWNER{$ptr} = 1;
 239 }
 240
 241
 242 # ------- CONSTANT STUBS -------
 243
 244 package WWW::Quvi;
 245
 246 sub libquviVersion () { $WWW::Quvic::libquviVersion }
 247 sub libquviVersionLong () { $WWW::Quvic::libquviVersionLong }
 248 sub ModuleVersion () { $WWW::Quvic::ModuleVersion }
 249 sub OK () { $WWW::Quvic::OK }
 250 sub Mem () { $WWW::Quvic::Mem }
 251 sub BadHandle () { $WWW::Quvic::BadHandle }
 252 sub InvArg () { $WWW::Quvic::InvArg }
 253 sub CurlInit () { $WWW::Quvic::CurlInit }
 254 sub Last () { $WWW::Quvic::Last }
 255 sub AbortedByCallback () { $WWW::Quvic::AbortedByCallback }
 256 sub LuaInit () { $WWW::Quvic::LuaInit }
 257 sub NoLuaWebsite () { $WWW::Quvic::NoLuaWebsite }
 258 sub NoLuaUtil () { $WWW::Quvic::NoLuaUtil }
 259 sub PcreError () { $WWW::Quvic::PcreError }
 260 sub NoSupport () { $WWW::Quvic::NoSupport }
 261 sub CurlError () { $WWW::Quvic::CurlError }
 262 sub IconvError () { $WWW::Quvic::IconvError }
 263 sub LuaError () { $WWW::Quvic::LuaError }
 264
 265 # ------- VARIABLE STUBS --------
 266
 267 package WWW::Quvi;
 268
 269 *_VERSION = *WWW::Quvic::_VERSION;
 270 1;