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