X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FMyVideoGrabber.pm;h=7be3806a3254bacad619d8c5568834511212c6ae;hb=5d1f166b61180b15b2f80ca514625f03e35b7cce;hp=30284665ea3f2288dfed6e593714c898ae6e409d;hpb=771fcc7e7309dcb054d652812cead6b6bf47be5f;p=videosite.git diff --git a/videosite/MyVideoGrabber.pm b/videosite/MyVideoGrabber.pm index 3028466..7be3806 100644 --- a/videosite/MyVideoGrabber.pm +++ b/videosite/MyVideoGrabber.pm @@ -15,15 +15,13 @@ use strict; sub new { my $class = shift; - my $self = $class->SUPER::new(); + my $self = $class->SUPER::new( + NAME => 'myvideo', + PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*myvideo.de/watch/(\d+))'], + @_, + ); - $self->{'NAME'} = 'myvideo'; - $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*myvideo.de/watch/(\d+))']; - - bless($self, $class); - $self->_prepare_parameters(); - - return $self; + return bless($self, $class); } sub _parse {