X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FGetterBase.pm;h=52e8a4db097284c12a52b17e31fe20dcfea6befe;hb=3255f6f448ae2e392871dc5241536b0dfb009a59;hp=a8130db3d0c87a9ff88dd9601f139489e32b7982;hpb=56322f8fce4f7ceadbd24a4e91e0eebd0fd249d5;p=videosite.git diff --git a/videosite/GetterBase.pm b/videosite/GetterBase.pm index a8130db..52e8a4d 100644 --- a/videosite/GetterBase.pm +++ b/videosite/GetterBase.pm @@ -1,21 +1,20 @@ # (c) 2007 by Ralf Ertzinger # licensed under GNU GPL v2 -package GetterBase; +package videosite::GetterBase; -use Base; -@ISA = qw(Base); +use videosite::Base; +@ISA = qw(videosite::Base); use strict; sub new { my $class = shift; - my $self = $class->SUPER::new(); - - $self = {%{$self}, + my $self = $class->SUPER::new( NAME => 'FlashGetter', - TYPE => 'getter' - }; + TYPE => 'getter', + @_, + ); return bless($self, $class); }