videosite/GetterBase.pm

   1 package GetterBase;
   2
   3 use Base;
   4 @ISA = qw(Base);
   5
   6 use strict;
   7
   8 sub new {
   9     my $class = shift;
  10     my $self = {
  11         NAME => 'FlashGetter',
  12         TYPE => 'getter'
  13     };
  14
  15     return bless($self, $class);
  16 }