videosite/GetterBase.pm

   1 # (c) 2007 by Ralf Ertzinger <ralf@camperquake.de>
   2 # licensed under GNU GPL v2
   3
   4 package GetterBase;
   5
   6 use Base;
   7 @ISA = qw(Base);
   8
   9 use strict;
  10
  11 sub new {
  12     my $class = shift;
  13     my $self = {
  14         NAME => 'FlashGetter',
  15         TYPE => 'getter'
  16     };
  17
  18     return bless($self, $class);
  19 }