# (c) 2007 by Ralf Ertzinger # licensed under GNU GPL v2 package xmlrtorrent::TalkerBase; use xmlrtorrent::Base; @ISA = qw(xmlrtorrent::Base); use strict; sub new { my $class = shift; my $self = $class->SUPER::new(); $self = {%{$self}, TYPE => 'talker', '__ERROR' => ''; }; return bless($self, $class); } sub load_start { my $self = shift; $self->error("TalkerBase::load_start called, this should never happen!"); return undef; } sub send_request { my $self = shift; $self->error("TalkerBase::send_request called, this should never happen!"); return undef; } sub errstr { my $self = shift; return $self->{'__ERROR'}; } 1;