X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FMetaCafeGrabber.pm;h=ccab7a9c848aaf9dbaf131a9bdf938960303be88;hb=89e8775f8f880bd14731e4501d13a3d63fe5fcb5;hp=e134becd8a0645b2ef5d9c099ecf494e9bb7a05f;hpb=771fcc7e7309dcb054d652812cead6b6bf47be5f;p=videosite.git diff --git a/videosite/MetaCafeGrabber.pm b/videosite/MetaCafeGrabber.pm index e134bec..ccab7a9 100644 --- a/videosite/MetaCafeGrabber.pm +++ b/videosite/MetaCafeGrabber.pm @@ -15,16 +15,13 @@ use strict; sub new { my $class = shift; - my $self = $class->SUPER::new(); + my $self = $class->SUPER::new( + NAME => 'metacafe', + PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*metacafe.com/watch/(\d+)(?:\S+)?)'], + @_, + ); - $self->{'NAME'} = 'metacafe'; - $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*metacafe.com/watch/(\d+)(?:\S+)?)']; - - bless($self, $class); - - $self->_prepare_parameters(); - - return $self; + return bless($self, $class); } sub _parse {