X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FLiveLeakGrabber.pm;h=4521f374b3337d7645ef8895d9f65021ca70fc33;hb=a96de45e14a9779163091452496ac91b4c3079ea;hp=27f4c7fdd8ca3880ed1fcd1d85b166094be6cf2b;hpb=771fcc7e7309dcb054d652812cead6b6bf47be5f;p=videosite.git diff --git a/videosite/LiveLeakGrabber.pm b/videosite/LiveLeakGrabber.pm index 27f4c7f..4521f37 100644 --- a/videosite/LiveLeakGrabber.pm +++ b/videosite/LiveLeakGrabber.pm @@ -15,15 +15,13 @@ use strict; sub new { my $class = shift; - my $self = $class->SUPER::new(); + my $self = $class->SUPER::new( + NAME => 'liveleak', + PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*liveleak.com/view\?i=([^\&]+))'], + @_, + ); - $self->{'NAME'} = 'liveleak'; - $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*liveleak.com/view\?i=([^\&]+))']; - - bless($self, $class); - $self->_prepare_parameters(); - - return $self; + return bless($self, $class); } sub _parse {