X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=videosite%2FBreakGrabber.pm;h=6bd77e1a5275c881e1e0d976157544737fda193d;hb=a795367c342cad54115ac809d52fdd5980c85860;hp=2c44d90aa351651082e2d11ce835a1546c17c647;hpb=911eeb36e674f916d08b04cd9c48bb33e96bf108;p=videosite.git diff --git a/videosite/BreakGrabber.pm b/videosite/BreakGrabber.pm index 2c44d90..6bd77e1 100644 --- a/videosite/BreakGrabber.pm +++ b/videosite/BreakGrabber.pm @@ -15,16 +15,13 @@ use strict; sub new { my $class = shift; - my $self = $class->SUPER::new(); + my $self = $class->SUPER::new( + NAME => 'break', + PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*break.com/index/([-a-zA-Z0-9_]+?)\.html)'], + @_, + ); - $self->{'NAME'} = 'break'; - $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*break.com/index/([-a-zA-Z0-9_]+?)\.html)']; - - bless($self, $class); - - $self->_prepare_parameters(); - - return $self; + return bless($self, $class); } sub _parse { @@ -33,7 +30,7 @@ sub _parse { my $pattern = shift; my $content; my $metadata = {}; - my $p = HTMLHelper->new(); + my $p = videosite::HTMLHelper->new(); my $n; $url =~ m|$pattern|;