# # A getter which dows not do anything useful. # package NullGetter; use GetterBase; @ISA = qw(GetterBase); use strict; use LWP::Simple qw(!get); sub new { my $class = shift; my $self = $class->SUPER::new(); $self->{'NAME'} = 'nullgetter'; bless($self, $class); $self->_prepare_parameters(); return $self; } sub get { return 1; }