-package NullGetter;
+# (c) 2007 by Ralf Ertzinger <ralf@camperquake.de>
+# licensed under GNU GPL v2
+#
+#
+# A getter which does not do anything useful.
-use GetterBase;
-@ISA = qw(GetterBase);
+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();
-
- $self->{'NAME'} = 'nullgetter';
-
- bless($self, $class);
- $self->_prepare_parameters();
+ my $self = $class->SUPER::new(
+ NAME => 'nullgetter',
+ @_,
+ );
- return $self;
+ return bless($self, $class);
}
sub get {