- Add fallback functions

diff --git a/xmlrtorrent/TalkerBase.pm b/xmlrtorrent/TalkerBase.pm
index d1fa7c8..d259b81 100644 (file)
--- a/xmlrtorrent/TalkerBase.pm
+++ b/xmlrtorrent/TalkerBase.pm
@@ -12,9 +12,30 @@ sub new {
     my $self = $class->SUPER::new();
 
     $self = {%{$self},
-            TYPE => 'talker',
-        };
+        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;