videosite/NullGetter.pm

   1 package NullGetter;
   2
   3 use GetterBase;
   4 @ISA = qw(GetterBase);
   5
   6 use strict;
   7 use LWP::Simple qw(!get);
   8
   9 sub new {
  10     my $class = shift;
  11     my $self = $class->SUPER::new();
  12
  13     $self->{'NAME'} = 'nullgetter';
  14
  15     bless($self, $class);
  16     $self->_prepare_parameters();
  17
  18     return $self;
  19 }
  20
  21 sub get {
  22
  23     return 1;
  24 }