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         NAME => 'nullgetter',
  19         @_,
  20     );
  21
  22     return bless($self, $class);
  23 }
  24
  25 sub get {
  26
  27     return 1;
  28 }