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         NAME => 'FlashGetter',
  15         TYPE => 'getter',
  16         @_,
  17     );
  18
  19     return bless($self, $class);
  20 }