X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FNullGetter.pm;h=3a16c0cddbcb60b0c481514ff0f073ddb2ca3ecd;hb=HEAD;hp=4cd56d8907c82f38780ac7739d605979ee9779cb;hpb=2044d5ff60e639a2eafbeed3a70224564e94c84c;p=videosite.git diff --git a/videosite/NullGetter.pm b/videosite/NullGetter.pm index 4cd56d8..3a16c0c 100644 --- a/videosite/NullGetter.pm +++ b/videosite/NullGetter.pm @@ -4,24 +4,22 @@ # # 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 {