X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FBroadcasterGrabber.pm;h=4c371011cbc24f8fc71908b0b5b24e18fa95720e;hb=8052f22003809d346863ad01dab1a1c9dad507b8;hp=5891acbb14cb0442c58663d5fca990327c35a7ff;hpb=6febaffb56a90b6a46544ff04eb3bc0f0593d685;p=videosite.git diff --git a/videosite/BroadcasterGrabber.pm b/videosite/BroadcasterGrabber.pm index 5891acb..4c37101 100644 --- a/videosite/BroadcasterGrabber.pm +++ b/videosite/BroadcasterGrabber.pm @@ -15,15 +15,13 @@ use strict; sub new { my $class = shift; - my $self = $class->SUPER::new(); + my $self = $class->SUPER::new( + NAME => 'broadcaster', + PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*broadcaster\.com/clip/(\d+))'], + @_, + ); - $self->{'NAME'} = 'broadcaster'; - $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*broadcaster\.com/clip/(\d+))']; - - bless($self, $class); - $self->_prepare_parameters(); - - return $self; + return bless($self, $class); } sub _parse {