videosite/NullGetter.pm

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