X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FGrabberBase.pm;h=b0bf480d50a880cefc364ebd78ec64f676dbe162;hb=12db405291947c6b02c2555051c3dc52f3995cbc;hp=a8389254e8a9ecfde53f6b8f6fa82ccdc507ec1e;hpb=adceba895caf73c393ada4d8582bae825b0afdc7;p=videosite.git diff --git a/videosite/GrabberBase.pm b/videosite/GrabberBase.pm index a838925..b0bf480 100644 --- a/videosite/GrabberBase.pm +++ b/videosite/GrabberBase.pm @@ -1,15 +1,17 @@ # (c) 2007 by Ralf Ertzinger # licensed under GNU GPL v2 -package GrabberBase; -use Base; -@ISA = qw(Base); +package videosite::GrabberBase; +use videosite::Base; +@ISA = qw(videosite::Base); use strict; sub new { my $class = shift; - my $self = { + my $self = $class->SUPER::new(); + + $self = {%{$self}, NAME => 'FlashGrab', TYPE => 'grabber', PATTERNS => [], @@ -28,7 +30,7 @@ sub get($$) { $self->debug("Matching %s against %s", $pattern, $url); if ($url =~ m|$pattern|) { $self->debug("Match"); - return $self->_parse($url, $pattern); + return wantarray?($self->_parse($url, $pattern), $pattern):$self->_parse($url, $pattern); } }