- my $self = $class->SUPER::new();
-
- $self->{'NAME'} = 'google';
- $self->{'PATTERNS'} = ['(http://video\.google\.com/videoplay\?docid=([-\d]+))'];
- $self->{'_PARAMS'} = {'QUALITY' => ['normal', 'Quality of the video to download. normal = standard resolution flash video, h264 = high resolution MPEG4 video']};
-
- bless($self, $class);
- $self->_prepare_parameters();
-
- return $self;
+ my $self = $class->SUPER::new(
+ NAME => 'google',
+ PATTERNS => ['(http://video\.google\.com/videoplay\?docid=([-\d]+))'],
+ _PARAMS => {
+ QUALITY => ['normal', 'Quality of the video to download. normal = standard resolution flash video, h264 = high resolution MPEG4 video']
+ },
+ @_,
+ );
+
+ return bless($self, $class);