X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FZeroPunctuationGrabber.pm;h=f40da054f59b3fa5dfd385f135f89d31826fe217;hb=2793bf0eb588c2ad4c76a4e2e38793612b69757f;hp=a9538fea825a0b779ae40ddf7e9a584b9d9cb1f4;hpb=bfa96f21d49c38615707963d596f269ffc48f0f3;p=videosite.git diff --git a/videosite/ZeroPunctuationGrabber.pm b/videosite/ZeroPunctuationGrabber.pm index a9538fe..f40da05 100644 --- a/videosite/ZeroPunctuationGrabber.pm +++ b/videosite/ZeroPunctuationGrabber.pm @@ -16,17 +16,15 @@ use strict; sub new { my $class = shift; - my $self = $class->SUPER::new(); - - $self->{'NAME'} = 'zeropunctuation'; - $self->{_SELFTESTURL} = 'http://www.escapistmagazine.com/videos/view/zero-punctuation/5346-Amy'; - $self->{_SELFTESTTITLE} = 'Amy'; - $self->{'PATTERNS'} = ['(http://www.escapistmagazine.com/videos/view/zero-punctuation/([-A-Za-z0-9]+))']; - - bless($self, $class); - $self->_prepare_parameters(); - - return $self; + my $self = $class->SUPER::new( + NAME => 'zeropunctuation', + _SELFTESTURL => 'http://www.escapistmagazine.com/videos/view/zero-punctuation/5346-Amy', + _SELFTESTTITLE =>'Amy', + PATTERNS => ['(http://www.escapistmagazine.com/videos/view/zero-punctuation/([-A-Za-z0-9]+))'], + @_, + ); + + return bless($self, $class); } sub _parse {