xmlrtorrent/TalkerBase.pm

   1 # (c) 2007 by Ralf Ertzinger <ralf@camperquake.de>
   2 # licensed under GNU GPL v2
   3
   4 package xmlrtorrent::TalkerBase;
   5 use xmlrtorrent::Base;
   6 @ISA = qw(xmlrtorrent::Base);
   7
   8 use strict;
   9
  10 sub new {
  11     my $class = shift;
  12     my $self = $class->SUPER::new();
  13
  14     $self = {%{$self},
  15         TYPE => 'talker',
  16         '__ERROR' => '';
  17     };
  18     return bless($self, $class);
  19 }
  20
  21 sub load_start {
  22     my $self = shift;
  23
  24     $self->error("TalkerBase::load_start called, this should never happen!");
  25     return undef;
  26 }
  27
  28 sub send_request {
  29     my $self = shift;
  30
  31     $self->error("TalkerBase::send_request called, this should never happen!");
  32     return undef;
  33 }
  34
  35 sub errstr {
  36     my $self = shift;
  37
  38     return $self->{'__ERROR'};
  39 }
  40
  41 1;