# (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', }; return bless($self, $class); } 1;