# (c) 2007 by Ralf Ertzinger # licensed under GNU GPL v2 # # # A getter which does not do anything useful. package videosite::NullGetter; use videosite::GetterBase; @ISA = qw(videosite::GetterBase); use strict; use LWP::Simple qw(!get); sub new { my $class = shift; my $self = $class->SUPER::new( NAME => 'nullgetter', @_, ); return bless($self, $class); } sub get { return 1; }