videosite/GetterBase.pm

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