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          };
  17     return bless($self, $class);
  18 }
  19
  20 1;