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 *swig_category_get = *WWW::Quvic::Options_category_get;
  80 *swig_category_set = *WWW::Quvic::Options_category_set;
  81 sub DESTROY {
  82     return unless $_[0]->isa('HASH');
  83     my $self = tied(%{$_[0]});
  84     return unless defined $self;
  85     delete $ITERATORS{$self};
  86     if (exists $OWNER{$self}) {
  87         WWW::Quvic::delete_Options($self);
  88         delete $OWNER{$self};
  89     }
  90 }
  91
  92 sub DISOWN {
  93     my $self = shift;
  94     my $ptr = tied(%$self);
  95     delete $OWNER{$ptr};
  96 }
  97
  98 sub ACQUIRE {
  99     my $self = shift;
 100     my $ptr = tied(%$self);
 101     $OWNER{$ptr} = 1;
 102 }
 103
 104
 105 ############# Class : WWW::Quvi::Link ##############
 106
 107 package WWW::Quvi::Link;
 108 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
 109 @ISA = qw( WWW::Quvi );
 110 %OWNER = ();
 111 %ITERATORS = ();
 112 sub new {
 113     my $pkg = shift;
 114     my $self = WWW::Quvic::new_Link(@_);
 115     bless $self, $pkg if defined($self);
 116 }
 117
 118 *swig_content_type_get = *WWW::Quvic::Link_content_type_get;
 119 *swig_content_type_set = *WWW::Quvic::Link_content_type_set;
 120 *swig_file_suffix_get = *WWW::Quvic::Link_file_suffix_get;
 121 *swig_file_suffix_set = *WWW::Quvic::Link_file_suffix_set;
 122 *swig_length_bytes_get = *WWW::Quvic::Link_length_bytes_get;
 123 *swig_length_bytes_set = *WWW::Quvic::Link_length_bytes_set;
 124 *swig_url_get = *WWW::Quvic::Link_url_get;
 125 *swig_url_set = *WWW::Quvic::Link_url_set;
 126 sub DESTROY {
 127     return unless $_[0]->isa('HASH');
 128     my $self = tied(%{$_[0]});
 129     return unless defined $self;
 130     delete $ITERATORS{$self};
 131     if (exists $OWNER{$self}) {
 132         WWW::Quvic::delete_Link($self);
 133         delete $OWNER{$self};
 134     }
 135 }
 136
 137 sub DISOWN {
 138     my $self = shift;
 139     my $ptr = tied(%$self);
 140     delete $OWNER{$ptr};
 141 }
 142
 143 sub ACQUIRE {
 144     my $self = shift;
 145     my $ptr = tied(%$self);
 146     $OWNER{$ptr} = 1;
 147 }
 148
 149
 150 ############# Class : WWW::Quvi::Video ##############
 151
 152 package WWW::Quvi::Video;
 153 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
 154 @ISA = qw( WWW::Quvi );
 155 %OWNER = ();
 156 %ITERATORS = ();
 157 sub new {
 158     my $pkg = shift;
 159     my $self = WWW::Quvic::new_Video(@_);
 160     bless $self, $pkg if defined($self);
 161 }
 162
 163 *swig_title_get = *WWW::Quvic::Video_title_get;
 164 *swig_title_set = *WWW::Quvic::Video_title_set;
 165 *swig_host_get = *WWW::Quvic::Video_host_get;
 166 *swig_host_set = *WWW::Quvic::Video_host_set;
 167 *swig_url_get = *WWW::Quvic::Video_url_get;
 168 *swig_url_set = *WWW::Quvic::Video_url_set;
 169 *swig_id_get = *WWW::Quvic::Video_id_get;
 170 *swig_id_set = *WWW::Quvic::Video_id_set;
 171 *swig_link_get = *WWW::Quvic::Video_link_get;
 172 *swig_link_set = *WWW::Quvic::Video_link_set;
 173 *swig_ok_get = *WWW::Quvic::Video_ok_get;
 174 *swig_ok_set = *WWW::Quvic::Video_ok_set;
 175 sub DESTROY {
 176     return unless $_[0]->isa('HASH');
 177     my $self = tied(%{$_[0]});
 178     return unless defined $self;
 179     delete $ITERATORS{$self};
 180     if (exists $OWNER{$self}) {
 181         WWW::Quvic::delete_Video($self);
 182         delete $OWNER{$self};
 183     }
 184 }
 185
 186 sub DISOWN {
 187     my $self = shift;
 188     my $ptr = tied(%$self);
 189     delete $OWNER{$ptr};
 190 }
 191
 192 sub ACQUIRE {
 193     my $self = shift;
 194     my $ptr = tied(%$self);
 195     $OWNER{$ptr} = 1;
 196 }
 197
 198
 199 ############# Class : WWW::Quvi::Query ##############
 200
 201 package WWW::Quvi::Query;
 202 use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
 203 @ISA = qw( WWW::Quvi );
 204 %OWNER = ();
 205 %ITERATORS = ();
 206 sub new {
 207     my $pkg = shift;
 208     my $self = WWW::Quvic::new_Query(@_);
 209     bless $self, $pkg if defined($self);
 210 }
 211
 212 sub DESTROY {
 213     return unless $_[0]->isa('HASH');
 214     my $self = tied(%{$_[0]});
 215     return unless defined $self;
 216     delete $ITERATORS{$self};
 217     if (exists $OWNER{$self}) {
 218         WWW::Quvic::delete_Query($self);
 219         delete $OWNER{$self};
 220     }
 221 }
 222
 223 *parse = *WWW::Quvic::Query_parse;
 224 *next_website = *WWW::Quvic::Query_next_website;
 225 *supported = *WWW::Quvic::Query_supported;
 226 *swig_last_error_get = *WWW::Quvic::Query_last_error_get;
 227 *swig_last_error_set = *WWW::Quvic::Query_last_error_set;
 228 *swig_quvi_code_get = *WWW::Quvic::Query_quvi_code_get;
 229 *swig_quvi_code_set = *WWW::Quvic::Query_quvi_code_set;
 230 *swig_resp_code_get = *WWW::Quvic::Query_resp_code_get;
 231 *swig_resp_code_set = *WWW::Quvic::Query_resp_code_set;
 232 sub DISOWN {
 233     my $self = shift;
 234     my $ptr = tied(%$self);
 235     delete $OWNER{$ptr};
 236 }
 237
 238 sub ACQUIRE {
 239     my $self = shift;
 240     my $ptr = tied(%$self);
 241     $OWNER{$ptr} = 1;
 242 }
 243
 244
 245 # ------- CONSTANT STUBS -------
 246
 247 package WWW::Quvi;
 248
 249 sub libquviVersion () { $WWW::Quvic::libquviVersion }
 250 sub libquviVersionLong () { $WWW::Quvic::libquviVersionLong }
 251 sub ModuleVersion () { $WWW::Quvic::ModuleVersion }
 252 sub OK () { $WWW::Quvic::OK }
 253 sub Mem () { $WWW::Quvic::Mem }
 254 sub BadHandle () { $WWW::Quvic::BadHandle }
 255 sub InvArg () { $WWW::Quvic::InvArg }
 256 sub CurlInit () { $WWW::Quvic::CurlInit }
 257 sub Last () { $WWW::Quvic::Last }
 258 sub AbortedByCallback () { $WWW::Quvic::AbortedByCallback }
 259 sub LuaInit () { $WWW::Quvic::LuaInit }
 260 sub NoLuaWebsite () { $WWW::Quvic::NoLuaWebsite }
 261 sub NoLuaUtil () { $WWW::Quvic::NoLuaUtil }
 262 sub PcreError () { $WWW::Quvic::PcreError }
 263 sub NoSupport () { $WWW::Quvic::NoSupport }
 264 sub CurlError () { $WWW::Quvic::CurlError }
 265 sub IconvError () { $WWW::Quvic::IconvError }
 266 sub LuaError () { $WWW::Quvic::LuaError }
 267 sub ProtoHttp () { $WWW::Quvic::ProtoHttp }
 268 sub ProtoMms () { $WWW::Quvic::ProtoMms }
 269 sub ProtoRtsp () { $WWW::Quvic::ProtoRtsp }
 270 sub ProtoRtmp () { $WWW::Quvic::ProtoRtmp }
 271 sub ProtoAll () { $WWW::Quvic::ProtoAll }
 272
 273 # ------- VARIABLE STUBS --------
 274
 275 package WWW::Quvi;
 276
 277 *_VERSION = *WWW::Quvic::_VERSION;
 278 1;