videosite/NullGetter.pm

   1 # (c) 2007 by Ralf Ertzinger <ralf@camperquake.de>
   2 # licensed under GNU GPL v2
   3 #
   4 #
   5 # A getter which does not do anything useful.
   6
   7 package videosite::NullGetter;
   8
   9 use videosite::GetterBase;
  10 @ISA = qw(videosite::GetterBase);
  11
  12 use strict;
  13 use LWP::Simple qw(!get);
  14
  15 sub new {
  16     my $class = shift;
  17     my $self = $class->SUPER::new();
  18
  19     $self->{'NAME'} = 'nullgetter';
  20
  21     bless($self, $class);
  22     $self->_prepare_parameters();
  23
  24     return $self;
  25 }
  26
  27 sub get {
  28
  29     return 1;
  30 }